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ANHANG 


EINFÜHRUNG 


Der Commodore 64 setzt neue Maßstäbe im Preis-/Leistungs- 
verhältnis. Zum Preis eines Heimcomputers bietet er durchaus 
professionelle Qualität. Als Commodore 64 Besitzer hat man 
praktisch mehrere Computer in einen. 


DER LERN- UND EINSTIEGSCOMPUTER 

Sein niedriger Preis qualifiziert ihn durchaus als 
Einstiegsgerät. Zusammen mit der Datassette bildet der 
Commodore 64 bereits in der Grundversion ein sehr 
leistungsfähiges Computersystem. Wichtig ist vor allem, daß 
der Einsteiger nicht mit wachsenden Kenntnissen stets an 
Grenzen des Gerätes stößt. 

Leicht gemacht wird das Lernen auch durch das umfangreiche 
und komfortable Commodore BASIC. Die sehr weitgehende 
Kompatibilität des Commodore 64 BASIC zu den BASIC- 
Interpretern der anderen Commodore-Computer erleichtert die 
Übernahme von Programmen und erschließt somit eine sehr 
große Programmbibliothek. 

"64 intern’ ist zwar nicht für den unmittelbaren Anfänger 
geschrieben, doch bildet das beim Commodore 64 ohnehin 
dürftige Handbuch in der Regel höchstens in den ersten Wochen 
eine ausreichende Lektüre. Wer tiefer einsteigen möchte als 
dies das Handbuch ermöglicht, sollte in unserem Buch zunächst 
mit den Kapiteln 2 (Synthesizer) und 3 (Graphik) beginnen. 
Wichtig ist auch das Kapitel 7, da die dort angegebenen 
Hinweise helfen, für andere Rechner geschriebene Programme 
mit dem Commodore 64 zu nutzen. 


DER SPEICHERRIESE 

Besonders fortgeschrittene Programmierer werden den großen 
Speicherraum des Commodore 64 zu schätzen wissen. Mit 64 
K RAM und 20 K ROM bietet der Commodore 64 genügend 
Speicherreserven auch für das anspruchsvollste Programm. Die 
Speicherbelegung des Commodore 64 in den verschiedenen 


möglichen Betriebsformen haben wir deshalb im Kapitel A 
ausführlich dargestellt. 

Besonders gut lassen sich die Speicherreserven des Commodore 
64 und viele seiner fortschrittlichen Möglichkeiten in 
Maschinensprache nutzen. Um auch reine BASIC-Programmierer zu 
einem Einstieg in die Maschinenprogrammierung zu ermutigen, 
haben wir unserem Buch eine Einführung ın Maschinen- und 
Assemblerprogrammierung vorangestellt. 

Maschinenprogrammierer können sich selbst noch das Arbeiten 
in BASIC wesentlich erleichtern und noch komfortabler machen. 
Wir haben im Kapitel 59 beschrieben, wie man neue 
BASIC-Befehle einbindet. Sicherlich wird es Ihnen nach 
einigem Experimentieren nicht schwerfallen, ähnlich den 
beschriebenen Beispielbefehlen eigene, neue Befehle zu 
erstellen. Kichtige Hilfestelung dabei und bei allen anderen 
Maschinenprogrammen kann nicht nur das ausführlich 
dokumentierte Listing des Commodore 64 Betriebssvstems 
leisten, sondern auch die Beschreibung der Funktion des BASIC 
Interpreters. 


DER GRAPHIKCOMPUTER 

wo beı vielen anderen Computern erst mühsam durch teure 
Hardware-Zusätze grafische Fähigkeiten nachgerüstet werden 
müssen, bietet der Commodore 64 von Hause aus bereits 
serienmäßig besondere Fähigkeiten. Den Schlüssel zur 
hochauflösenden Farbgraphik bildet ein völlig neuer 
Videocontroller, dessen Eigenschaften und Fähigkeiten wir 
eingehend beschrieben haben. 

Detailliert sind wır auch auf eın neues Zauberwort 
eıngegangen: SPRITES. Diese supergroßen, frei definierbaren 
Graphikzeichen machen vom Action-Spiel bıs zur werbewirksamen 
Laufschrift Dinge möglich, die bisher, wenn überhaupt, nur 
unter großem Programmieraufwand realisiert werden konnten. 
Die überragenden Farbgraphikmöglichkeiten des Commodore 64 
und der niedrige Preis lassen erwarten, daß der Commodore 64 
demnächst auch als intelligenter Farbprozessor für andere, 


größere Anlagen Verwendung findet. Nötig ist hierzu lediglich 
eine hardwareseitige Verbindung, z.B. über den seriellen Bus 
oder einen IEC-Bus. Auch für andere Zwecke ließe sich der 
Commodore 64 nach ähnlichem Muster gut als Hilfsrechner 
einsetzen, z.B. als Datenbankprozessor. 


DER SYNTHESIZER 

Im Commodore 64 ist Musik! 

Als einer der ersten Kleincomputer verwendet der Commodore 64 
einen vollwertigen Synthesizer, der sich hinter 
professionellen Spezialgeräten nicht zu verstecken braucht. 
Das Geheimnis ist hier auch wieder ein völlig neu 
entwickelter Chip, dessen Fähigkeiten und Möglichkeiten wir 
für Sie genauestens unter die Lupe genommen haben. 

Eigentlich Fehlt nur noch eine entsprechende Klaviertastatur, 
um aus dem Commodore 64 eine Heimorgel zu machen, die mit 
entsprechender Programmierung viele dieser erheblich größeren 
und teureren Geräte in den Schatten stellt. Es würde uns 
nicht wundern, wenn COMMODORE zum Commodore 64 demnächst eine 
solche Tastatur anbietet. 

Eine andere, interessante Möglichkeit wäre der Anschluß des 
Commodore 64 an eine Stereoanlage. Musikliebhaber werden am 
Commodore 64 ihre helle Freude haben und ihre Ohren werden 


Augen machen. 


DER STEUERUNGSCOMPUTER 


Auch für Steuerungs- und Regelungszwecke der 
unterschiedlichsten Art läßt sich der Commodore 64 mit 
entsprechenden Interfaces gut verwenden. Sowohl der 


engagierte Hobby-Elektroniker als auch der industrielle 
Anwender, für den der Commodore 64 ungewöhnlich viel 
Computerleistung zu diesem Preis bietet, werden rasch 
entsprechende Anwendungsgebiete finden. Ein in diesen Buch 
beschriebenes Beispiel für solche Anwendungen ist die 
Benutzung des Paddleports als A/D-Wandler. Weitere Hinweise 
gibt die Beschreibung der Eingabe-/Ausgabe-Steuerung im 


Kapitel 4 und der entsprechenden Betriebssystemroutinen im 
6. Kapitel. 


IHR_EIGENER COMPUTER 

Ganz gleich, ob Sie den Commodore 64 gekauft haben, um damit 
zu komponieren, Adressen zu speichern oder um programmieren 
zu lernen, '64 intern' wird Ihnen helfen, die fantastischen 
Möglichkeiten des Commodore 64 zu erschließen. 

Bestimmt finden Sie Anwendungsgebiete für Ihren eigenen 
Computer, an die Sie bıs heute nicht gedacht haben. 

Wer noch tiefer einsteigen möchte, findet im letzten Kapitel 
eine Auflistung empfehlenswerter Mikrocomputer-Literatur. 


Kapitel 1 ı DER CBM 644 UNTER DIE LUPE BENOMMEN 


1.1 Das sollten Sie über das Gerät wissen 


Der CBM 64 kann ohne weiteres als Glanzleistung angesehen 
werden, was das Bemühen betrifft, mit relativ geringen 
Aufwand ein hervorragendes Produkt zu schaffen. 

Sie werden bei Ihrer Arbeit mit dem Gerät sehr schnell 
feststellen, daß eigentlich, was die Hardware betrifft, an 
keiner Ecke »twas fehlt. 

Wenn Sie auch Besitzer seines VC-28 sind, sollten Sie sich 
einmal die Mühe machen, beide Geräte zu öffnen. 

Sie werden feststellen, daß der CBM 44 weniger ICs enthält, 
trotz seiner höheren Leistungsfähigkeit. 

Dies ist nur durch eine höhere Integrationsdichte der ICs 
möalich. 

In der Tat stecken im CBM 64 eine Reihe neuentwickalter, 
hochintegrierter ICs. 

Die Firma Commodore ist in nämlich in der glücklichen Lage, 
über eine eigene Halbleiterfabrikation in Form der 
Tochterfirma MOS zu verfügen. 

Schauen Sie sich das Foto vom Innenleben des CBM 64 an. Sie 
werden es nicht für möglich halten, daß dies einen 
kompletten Single Board Computer (Einplatinenrechner) 
einachließlich sämtlicher zur Kommunikation ait der 
Außenwelt erforderlicher Elemente darstellt. 

Es ist dem Hersteller gelungen, auf 44-K-Adressraum, die ein 
8-Bit-Mikroprozessor für gewöhnlich aufweist, folgende Dinge 
unterzubringenı 


64K dynamischer RAM 

IK Farb-RAM 

4K Charactergenerator 
Farbvideocontroller mit Hi-Res-Graphik 
Synthesizer mit drei unabhängigen Stimmen 
BK Basic 

8K Betriebssystem 

2 Parallel-I/O 


wm... ..n.... 


Das Blockschema des CBM 64 finden Sie auf der nächsten 
Seite. 

Auf einige Einzelheiten daraus wird noch im Kapitel 3 und im 
Abschnitt 1.4 näher eingegangen. 


Sicher werden Sie sich fragen, wie das alles untergebracht 
werden kann, so daß es auch noch funktioniert, wo dach 
alleine der Ram schon den gesamten zur Verfügung stehenden 


Adressraum einnimmt. 

Da die in den folgenden Abschnitten erklärten Details 
notwendigerweise sehr technischer Natur sein müssen, ist die 
Lektüre allgemein in die Mikrocomputertechnik einführender 
Literatur empfehlenswert. 

Der hier behandelte Themenkreis kann insbesondere durch die 


Bücher von MOS vertieft werden. 
Es sind dies das Hardnare-Handbuch und das 


Programmierhandbuch, die sich beide speziell auf die ICs der 
Familie 654x beziehen. 
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EXPANSIONSLOT. 


1.2 Realisierung in der Hardware 


Da bei dem verwendeten Prozessor 6518 nur ein Adressraum von 
64K zur Verfügung steht, ging man neus Wege, um alle oben 
genannten Features unterzubringen. 

Das Zauberwort heißt Multiplexen. 

Unter Multiplexen soll hier die zeitlich verschachtelts 
Benutzung derselben Leitungen von mehreren Systemkomponenten 
verstanden werden. 

Es wird mämlich sinfach davon ausgegangen, daß nicht alle 
Einrichtungen der Hardware zur gleichen Zeit benutzt werden. 
Das hört sich zwar wis weine Binsenweisheit an, Jedoch 
besteht die Kunst darin, die Komponenten derart zu 
verknüpfen, daß alle zu einem logischen Block (z.B. 
I/0-Block, Videoblock usw.) gehörenden Einheiten ohne 
Umschalten zu erreichen sind. 

Schon hier zei verraten, daß das Herzstück dieser komplexen 
Funktion ein spezielles IC ist, welches wir in Ermangelung 
eines anderen Namens «einfach Adressraum-Manager nennen 
wollen. Mehr hierüber jedoch erst im Abschnitt 1.4. 


Ein Beispiel für die Überlagerung von Komponenten, die 
denselben Adressbereich belegenı 

Zeichengenerator und I/O-Bereich belegen dieselben Adressen. 
Dennoch kommt es nicht zum Konflikt, da der VIC beim Zugriff 
auf den Charactergenerator geschickt die Systemtaktlücken 
ausnutzt, in denen der Prozessor ohnehin nicht auf den 
Adressbus zugreift. 

Bei soviel überlappung können natürlich auch Konfliktfälle 
auftreten, die aber auf jeden Fall durch eine geeignete 
Software vermieden werden können. 

Deshalb sollten Maschinenprogrammierer dieses Kapitel 
aufmerksam aufnehmen, da hier auf solche Reibungspunkte 
hingewiesen wird. 

Das gesamte ROM und Teile des RAM überlappen sich über einen 
Bereich von 2GUK. Wie dieser Fall gelöst wird, ist im 
Abschnitt 1.4 nachzulesen. 

Bleibt noch von einer weiteren überlagerung zu berichten, 
die allerdings nicht den Adressbus, sondern den 
Peripheriebereich betrifft. 

Dort sind einige 1/0O-Lines der CIAs doppelt belegt, nämlich 
sowohl mit der Tastatur als auch mit den Controlports außen 
am Rechner. Wie diese Klippe umschifft werden kann, ist im 
Abschnitt 4.7 ausführlich behandelt. 

Es ist selbstverständlich, daß in einem derart komplexen 
Aufbau auch die Einzelkomponenten Aufgaben übernehmen 
müssen, die weit über ihre ihnen gewöhnlich zugedachten 
Funktionen hinausgehen. 

Ein Paradebeispiel hierfür ist der Videocontroller 5567 
(wIc: 

Der Ram besteht aus dynamischen ICs 4164, organisiert zu 64K 
mal 1 Bit. 

Dennoch sind in der Hardware keinerlei Komponenten 
enthalten, die die ziemlich komplizierte (im Vergleich mit 
statischen Rams) Adressierung vornehmen oder für den 
Pünktlichen Refresh (Wiederauffrischen des Speicherinhaltes 
in kurzen Abständen) sorgen. Diese ganzen Angelegenheiten 
werden vom Videocontroller automatisch erledigt, neben 
seiner eigentlichen Aufgabe, für ein anständiges Bild zu 
sorgen. 
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1.3 Der Prozessor 6518 und seine Besonderheiten 


Der CBM 64 hat als Prozessor die MPU 4518 (MPU=Micro 
Processing Unit). 

Dies ist ein 8-Bit-Prozessor, der im CBM 54 mit einer 
Taktfrequenz von ca. 9BBKHz betrieben wird. 

Die MPU #518 ist ein neues IC aus der Familie diux. 

Der wesentliche Unterschied zum bekannten &6582 besteht 
darin, daß der Chip über sechs I/O-Leitungen verfügt. 

Das hat in Minimalkonfigurationen gegenüber dem 4502, der 
über keinerlei 1/O-Leitungen verfügt, den Vorteil, daß man 
ohne zusätzliche Peripherie-ICs über einzeln programmierbare 
Leitungen verfügt, sei es zur Verbindung mit der Außenwelt 
(z.B. Tastatur), sei es für interne Steuerzwecke. 

Im CBM 64 unterstützen diese Leitungen zum einen den 
Kassettenbetrieb, zum anderen die Speicherverwaltung. 

Der Befehlssatz ist der gleiche wie beim 65B2. 

Interessant für den Programmierer dürfte noch sein, daß die 
1I/0O-Leitungen die Adressen 8 und I belegen, nämlich B als 
Datenrichtungsregister und 1 als Datenregister. 

Der Stack kann sich in Bereich $D188 bis $SQiFF bewegen. 
Unter Stack versteht man einen Stapelspeicher, auf dem, z.B. 


beim Sprung in Unterprogramme, die Prozessorregister 
abgelegt werden können, um sie beim Rücksprung ins 
Hauptprogramm wieder hervorzuholen und mit den 


ursprünglichen Inhalten weiterzuarbeiten. 

Zu der nun folgenden Pin-Belegung noch eine Anmerkungs 

Es ist uns nicht gelungen, ein dem tatsächlichen Stand 
entsprechendes Datenblatt aufzutreiben. Wir haben zwar 
mehrere, doch auf jedem ist das Finout anders dargestellt. 
Deshalb sind „ir den empirischen Weg gegangen und haben 
kontrolliert, wo die einzelnen Leitungen denn nun 
tatsächlich hingehen. Hier nun das Ergebnisı 


1 BIN Systemtakt Eingangı im CBM 64 ca. 9BOKHz. 

2 RDY Readyı @=Prozessor hält beim nächsten Lesezyklus 
an, bis RDYsei. Von dieser Möglichkeit macht man z.B. 
beim Betrieb langsamer Speicher Gebrauch. 


3 -IRQ Interrupt Requesti B=Prozessor holt sich die 
nächste Befehisadr e von SFFFE und macht dort 
neiter. Dieser Umstand tritt nur ein, wenn der 
Interrupt erlaubt war (Bit 2 im Flag-Register=D). 

4 -NMI Non-Maskable Interruptj B=Prozessor holt sich die 
nächste Befsehlsadresse von SFFFA und macht dort 
weiter. 

3 AEC Adress Enable Controlj B=Prozessor bringt Daten- 


Adress- und Bteuerbus in den hochohmigen Zustand 
(Tri-State). Der Bus kann nun von anderen Einheiten 
betrieben werden, z.B. ein zweiter Prozessor. 


[-) VCC Betriebsspannung +5V 
7 -28 AB-A1Sı Adressbus 
21 GND 


22-23 A14-A15ı Adressbus 
24-29 PS-P@ı 1/0-Pins 
s@a-37 D7-D0} Datenbus 
38 R/-Hı BeSchreibzugriff, 1=Lesezugriff 
Alle Zugriffe finden nur während B2=1 statt. 
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397 @20UTı Systemtakt Ausgang zur Versorgung anderer 
Bausteine. 

40 RES Reset: B=Prozessor geht in den Ruhezustand. Beim 
überaang von 8 nach 1 holt sich der Prozessor sine 
Adresse von #SFFFC und beginnt dort mit dem Programm. 


1.4 Speicherbelegungspläne 


Aufgrund der mehrfachen Bereichsüberlappungen und der damit 
notwendigen Verwaltung des Adressraumes ergeben sich etliche 
mögliche Belegungen. 

Dreh- und Angelpunkt des gesamten Komplexes ist ein IC, 
welches im Folgenden kurz Adress-Manager (AM) genannt wird. 
Beim AM handelt es sich um sin IC von der Sorte FPLA (Field 
Programable Logic Array). 

Derartige Bausteine enthalten eine Vielzahl potentieller 
logischer Verknüpfungen, die vom Anwender in der gewünschten 
Kombination programmiert werden können. 

Im Falle des CBM 64 ist dies ein IC mit 16 Eingangsleitungen 
und B Ausgangsleitungen. 

Durch die Programmierung wurde jeder Eingangskombination 
(eine aus 65536 möglichen) eine Ausgangskombination (eine 
aus 256 möglichen) zugeordnet. 

Da dieses IC sin wesentlicher Bestandteil des CBM 64 ist, 
sollen hier die Ein- und Ausgangssignale erklärt werden ait 
Zweck (Ausgänge) und Herkunft (Eingänge). i 


Zunächst die Eingänge: 


-CAS Signal vom VIC zur Steuerung der Ramadressen. 

-LORAM Signal vom Prozessorport Bit ® 

-HIRAM wie oben, jedoch Bit 1 

-CHAREN nie oben, jedoch Bit 2. Soll das Auslesen des 
Zeichengensrators ermöglichen. Versuchen Sie das nie 


in Basic, da die vom Timer angestolene 
Interruptroutine statt des erwarteten Tiaers dort 
nun den Charactergenerator vor findet 


(Charactergenerator und Tiner in der CIA belegen 
dieselben Adressen) und deshalb falsch verzweigt, 
was zu einem 'Absturz’ des Betriebssystems führt. 
-vA1l4 kommt von CIA 2 Port A Bit Bj stellt einen Teil der 
Basisadresse von Zeichengenerator und Videoram dar. 
A1S-A1S Adressbussignale; dienen hier zur Dekodierung des 
I/O-Bereiches. 


BA Signal vom VICı wirkt auf die RDY-Leitung des 
Prozessors 
-AEC B=Prozessor steuert den Bus, 1i=VIC steuert den Bus. 


Das Signal ist durch Invertierung von AEC des VIC 
gewonnen. 

R/-W Steuersignal des Prozessors 

-EXROM Eingangssignal vom Expansion-Blot 

-GAME “wie oben 

VA1I2-153 Adressbus des VIC 
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Nun die Ausgänge 


-CASRAM BeRam übernimmt das höherwertige Byte der 
Speicheradresse 

-BASIC B=Basic-Rom ist selektiert 

-KERNAL @=eBetriebss em-Rom ist selektiert 

-CHAROM ®=Auswahl des Charactergenerators 

GR/-W 8=Schreibzugriff auf das Farbram 

-1/0 8=1/0-Dekoder selektiert 

-ROML Signal zum Enpansion-Slot 

-ROMH „ie oben 


Auf der nächsten Seite finden Sie eine (fast) vollständige 
Liste der Zuor dnungen von Eingangskombinationen zu 
Ausgängen. 

Zu dem ‘fast’ eine kleine Anmerkungı 

Es wäre uns sicher sin Leichtes gewesen, dieses Buch mit 
allen der zu den 65536 möglichen Eingangskombinationen 
gehörigen Ausgangskombinationen zu füllen. 

Bei ICs dieser Gattung gibt es jedoch eine große Menge 
redundanter Eingangsbits, d.h. Bits, bei denen sich in einer 
bestimmten Konstellation nichts am Ausgang ändert. Solche 
Bits sind in der Tabelle durch ein X gekennzeichnet. 

Um diese Bits aber herauszufinden, haben wir ein Programm 
entnickelt, welches über vier Wochen ohne Unterbrechung lief 
und immer noch nicht ganz fertig war. 

Desnalb mögen am Ende der Tabelle vielleicht einige 
Kombinationen fehlen. Das sind ein : paar der 
Ausgangskombination SFE und alle der Kombination SFF. Die 
letztere ist ohnehin nicht von großer Bedeutung, da ja, wie 


Sie sehen, alle Ausgänge QB-aktiv sein müssen, um etwas zu 
bewirken. 


Wenn Sie sich nicht durch diese Tabelle durchkämpfen wollen, 
finden Sie auf den nächsten Seiten bildlich in geraffter 


Form die wichtigsten Auswirkungen den AM auf die 
Speicherzuordnung. 
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EO00 
e0c00 ciR 1/2 + 170 0-1 
"0000 jFark-AAm_ | 
80000 vIC 11 7 SID 
scoo0 
Diese Konfiguration ist nach 
dem Einschalten des Rechners 
eingestellt, wenn sich keine 
Erneiterungen am Expansionslot 
A000 befinden. 
-LORAM si 
-HIRAM =i 
-EXROM =1 
-GAME "i 
B8000 -CHAREN=1 
43990 
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sE000 
00C99 
80899 


30000 


88000 


89999 


i 
1delrlebseysteom 
ıcIA 1/2 » 170 0-1 


ic t1 7 SID 


Diese Konfiguration ist 
vorstellbar, nachdem ein 
modifiziertes Basic in den 


überlagernden RAM-Bereich 


kopiert wurde. 


-LORAM =8 
-HIRAM =1 
-EXROM =X 
-BAME 1 
-CHAREN=1 
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3E000 

80C00 CIA 1/2 + 1/0 0-1 

BO [Fern 

| In dieser Konfiguration könnte 

der Speicher von einem 
externen Prozessor betrieben 
werden, wobei die Peripherie- 
bausteine mitbenutzt werden. 
-LORAM si 
-HIRAM «8 
-EXROM =X 
-BAME «1 

8000 -CHAROM=1 


89909 se Are] 
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88000 


80000 


Diese 


Form gleicht 


vorigen, 
I/0-Bereich nicht 


werden. 


-LORAM 
-HIRAM 
-EXROM 
-GAME 
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=8 
=0 
=1 
=1 


jedoch kann hi 


der 
er der 
benutzt 


0E000 
8DC00 
sDa00 


sco00 


06000 


80000 


cır 172 + 170 0-7 


Febr | 
vıc 11 7 sıo 


16 K ROM-Einschub 


Dies ist eine typische 
Konfiguration, wenn eine 
andere Sprache als Basic 
benutzt werden soll. 

Die andere Sprache (z.B. 
PASCAL) steckt in einer 


externen ROM-Kassette. 


-LORAM =1 
-HIRAM =1 
-EXROM =B 
-GAME =D 
-CHAREN=1 
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sEO00 


80C00 cin 172 + 1/0 0-7 
00800 Ferb-RAM 


40000 vic 11 / SID 


»C000 
Dies ist eine typische 
Spielekonfiguration. 
8Ro00o OK_ROM Einaehub -LORAN =® 
-HIRAM =1 
-EXROM "0 
-GAME =8 
-CHAREN=1 
88000 
80000 
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86009 
8DC00 
30890 


09999 


sc09D 


4009 


8000 


iBoirlobunjaton 


ıCIR 372 + 1/0 0-1 


vice 5) 7 518 


AK_RRAM 


eK_BRSIT 


BRSIC-Erwsiterun 


In dieser Konfiguration ist 
das Basic durch eine 
ROM-Kassette erweitert (z.B. 
TOOLKIT). 


-LORAM =1 
-HIRAM =1 
-EXRDM =8 
-GAME al 
-CHAREN=e1 
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80F 99 179) 


#0E99 172 9 
30099 cıa 2 
20C00 cıa 
80800 Farb-RAM 


8D400 


BDODD VIDEO-Contr. 


Hier finden Sie die 
Aufschlüsselung des 170- 
Bereiches, wenn -CHAREN=1. 

Bei -CHAREN=@ belegt der 
Charactergenerator den ge- 


santen Bereich. 
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1.5 Die Erweiterunasschnittstelle 


Hinten am CBM 64 befindet sich ein 44-poliger Steckplatz. 
Dieser sogenannte Expansion-Slot bietet vielfältige 
Erweiterungsmöglichkeiten. 

An dieser Schnittstelle steht der gesamte Systembus mit den 
zugehörigen Steuerleitungen zur Verfügung. 


An dieser Stelle werden z.B. Basic- und Betriebssystem- 
erweiterungen (Toolkit, Maschinensprachemonitor uEn.), 
Spiele und Ein- Ausgabeerweiterungen (IEC-Bus) an- 
geschlossen. 

Es ist sogar möglich, mit seinem hier angeschlossenen 
Prozessor auf die Komponenten im Inneren des Gerätes 
zuzugreifen. 

Zur Benutzung von mehreren Erweiterungen, z.B. 
Programnierhilfe und Maschinensprache, läßt sich diese 
Schnittstelle durch geeignete Vorrichtungen auch 


vervielfachen. 

Module, die für den VC-208 vorgesehen wind, passen weder 
logisch noch physikalisch an diese Schnittstelle. 

Wollen Sie es dennoch versuchen, so müssen die vom VC-28 
bekannten Blockauswanlsignale durch Dekodierung der 
Adressbits 13-15 gewonnen werden. 


Da viele Signale dabei sind, die nicht selbsterklärend sind, 
hier die Pinbelegung: 


1 GND 

2-3 +50 

4 -IRO:k mit IRQ des Prozessors verbunden 

5 CR/-WI mit R/-W des Prozessors verbunden 

6 DOT CLOCK: Punktrastertakt für den VIC, ca. 7,85 MHz 
7 -1/01; gewöhnlich =® im Adressbereich $DEBB bis $DEFF 
8 -GAME: Eingang zum AM; Auswirkung siehe 1.4 


I -EXRDM; wie oben 
10 -1/02j gewöhnlich =® im Bereich $DFOB bis SDFFF 
11 -ROML; Ausgang vom AM. Siehe 1.4 


12 BA Signal vom VIC, welches die Gültigkeit von 
Lesadaten anzeigt 


13 -DMAt Eingang. B=Bussystem für den externen Zugriff 
reservieren. 

14-21 CD7-CD8B: Datenbus 

22 GND 

A GND 

B -ROMH: Ausgang vom AM. Siehe 1.4 

c RESET 

D -NMI 

E 02ı Systemtakt Ausgang 

F -Y CA1S-CAB: Adressbus 

z GND 


Wesentliche Unterschiede zum Expansionslot des VC-28 sindı 

Anderer Abstand der Steckkontakte untereinander;j 2,54mm 
hier, 3,96mm beim VC-20. 
Die Block- und Ramauswahlsignale -RAMI-3 und -BLK1-5 fehlen 


völlig, da der Adressbus vollständig herausgeführt ist. Beim 
VC-28 sind es nur die Adreasbits 8-12. 


Anderer Umfang der 1/0-Bereiche; hier 256 Byte, beim VC-28 
IK. 
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Wenn Sie diesen Abschnitt im Zusammenhang mit dem Vorigen 
sehen, dürfte klar werden, welchen Einfluß man selbst von 
außen auf die Speicherkonfiquration hat. 

Das gilt insbesondere für die Signale -EXROM und -BAME, da 
hiermit die Speicherzuordnung derart umkonfiguriert werden 
kann, da3 nach dem Einschalten nicht einmal mehr das 
erwartete READY’ auf dem Bildschirm erscheint. 

Daher sind die entsprechenden Signale nur mit Vorsicht zu 
genießen. 


1.56 Der User-Port 


Mit dem User-Port bietet der CBM 644 eine Schnittstelle, die 
zur Steuerung, der Name sagt es, ansenderspezifischer 
Peripheriegeräte dient. 

Das wären im einfachsten Falle über Treibertransistoren 
angeschlossene Lampen, das könnte aber auch ein Drucker mit 
8-Bit-Parallelschnittstelle (Centronics) sein, den Sie 
vielleicht zufällig besitzen und gerne am CBM 64 betreiben 
würden. 


Ein geeigneter Stecker zum Anschluß an den Userport ist z.B. 
der Cardcon-Stecker der Firma TRW mit der Nummer 
251-12-590-178 aus der Serie Cinch-Connectors. 

Es handelt sich hierbei um «einen zweireihigen 
Platinendirektstecker mit 2x12 Kontakten im Abstand von 
3,96mm. 


Der Userport besteht im wesentlichen aus einem B-Bit-Port 
und diversen Steuerleitungen, die im Folgenden näher 
vorgestellt werden: 


1 GND 
2 +5V, mit max. 180mA belastbar 
3 -RESET; mit der gleichnamigen Prozressorieitung 


verbunden. 

4 CNTI} verbunden mit CNT von CIA I 

5 SPiz mit SP von CIA 1 verbunden 

& CNT2} Leitung ENT von CIA 2 

7 SP2; verbunden mit SP von CIA 2 

8 -PC2ı Handshake-Ausgang von CIA 2 

7 ATN OUTj Steuerleitung des seriellen IEC-Bus, stammt von 
PAS der CIA 2. 

18 9V ACı Wechselspannung; mit max. 188 mA belastbar. 

il OGegenpol zu oben 

12 GND 

A OND 

B -FLAG2ı Handshake-Eingang von CIA 2 

C-L PBB-PB7; I/O-Lines von CIA 2 

m PA2ı I/O-Line von CIA 2. Diese Leitung ersetzt den von 
den anderen CBMs bekannten CB2 der VIA 4522. 

N GOND 
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Einige der oben aufgeführten Leitungen haben im CBM 64 
bereits fest zugeordnete Funktionen. 


Hierzu und auch zur Handhabung der CIAs schauen Sie bitte im 
Kapitel 4 nach. 


Wollen Sie an den Userport Geräte anschließen, die 
eigentlich zum Anschluß an den Userport des VC-28 oder CBM 
6832 o.a. vorgesehen sind, so ist das prinzipiell nur bei 
den Geräten möglich, die zu ihrem Betrieb ausschließlich die 
Pins A-N, 1 und 12 benötigen. 

Auf jeden Fall müssen Sie die programmtechnisch 
unterschiedliche Handhabung der Pins B und M beachten. 
Hierzu gibt das Kapitel 4 weitere Auskunft. 


1.6.1 Die Programmierung des User-Port in Basic 


Wenn Sie sich zu denjenigen zählen, die Basic und alles, was 
dazugehört wie ihre Westentasche kennen, denen jedoch die 
nicht standardmäßigen Anschlüsse (in die nicht einfach 
irgendein Peripheriegerät eingesteckt werden kann) 
verdächtig sind und als nur Insidern vorbehaltenses Relikt 
aus den Anfängen der 'Computerei ‘ erscheint, dann ist 


Ihnen 
dieser Abschnitt gewidmet. 


Wir wollen Ihnen zeigen, nie Sie sine einfach aufzubauende 
Schaltung am Userport anschließen können und diese im 
vertrauten Basic handhaben können. 
Die Anordnung besteht lediglich aus vier Schaltern, 
Leuchtdioden, acht Widerständen und einem IC. 

Sie werden damit die Grundbegriffe der Datenein- und ausgabe 
über den Userport sehr leicht verstehen und sich die so 
gewonnenen Erfahrungen für eigene Projekte zunutze machen 


können. Die Schaltung finden Sie am Ende dieses Abschnitts. 
Sie ist Ihrer Einfachheit wegen nicht weiter kommentiert. 


vier 


Wegen der Vielzahl der belegten Anschlüsse des Userport (nn 
sind mehr als z.B. bei den Rechnern der CBM-Reih2) muß 
zunächst geklärt werden, was am Userport tatsächlich 'User-' 
ist. 

Falls Sie nicht zufällig eine RS-232-Cartridge betreiben, 
können Sie die folgenden Anschlüsse ohne Rückwirkung auf die 
übrigen Funktionen des Rechners benutzanı 

1-2, 4-8, 18-12, A-N 

Die Bedeutung dieser Pins 
vorangegangenen Abschnitt. 


entnehmen Sie bitte dem 


Nun zu unserem Beispiel: 
Die Datenleitungen PBB-PB7 
Eingabe oder Ausgabe 
demonstrieren, benutzen 


lassen sich individuell auf 
programmieren. Um dies zu 
wir in unserem Beispiel die 
Leitungen PBÖö-PBS als Eingabe, und die Leitungen PB4-PB7 als 
Ausgabe. Die Festlegung der Datenrichtung geschieht einfach 
durch das Laden des Datenrichtungsregisters für den 
Datenport B auf der Adresse 56579. Ein gesetztes Bit (=1) 
bedeutet Ausgabe auf dem korrespondierenden Bit des 
Datenport B (Adresse 36577), ein rückgesetztes Bit (=) 
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bedeutet Eingabe. Um für unser Beispiel die Datenrichtungen 
festzulegen, d.h. Bit 8-3 als Eingabe, 4-7 als Ausgabe, 
benutzen Sie einfach folgenden Befehlı 


POKE 56577,249 


Damit sind die overen 4 Bits =1 gesetzt und somit stehen die 
korrespondierenden Datenbits des Fort B auf Ausgabe, die 
übrigen auf Eingabe, 


Wie wird nun unsere kleine Schaltung des weiteren 
gehandhabt? 
Nichts einfacher als das: 


PRINT PEEK (56577) ANDIS 
signalisiert Ihnen den Zustand der vier Schalter. und mit 
POKE 56577.X 


können Sie die Leuchtdioden ein- oder ausschalten. wobei der 
Wert X nur aus den Zahlen 16,32,54,12B zusammengesetzt sein 
darf oder 8 ist, wenn alle Lämpchen aus sein sollen. 


Sollten Sie eigene Projekte am Userport anschließen wollen, 
so beachten Sie bitte, um eine Beschädigung des Rechners zu 
vermeiden, unbedingt folgendes: 

Beı Verwendung des Userport als Eingang darf die 
Einganasspannung nur im Bereich B-5 Volt liegen. Eine 
Spannung im Bereich 9-8,& Volt wird beim Auslesen des 
Datenports als 8 interpretiert, eine solche von 1,6-5 Volt 
als 1. Der Bereich von 8,7 bis 1.5 Volt ist indifferent, 
d.h. er kann zufällig als B oder 1 erkannt werden. 

Bei Verwendung als Ausgang beachten Sie bitte, daß die 
Ausgange nur eine Belastung eines TTL-Eingangs aushalten. 
Sie könnten also keinesfalls eine Leuchtdiode direkt 
anschließen, was langfristig zur Zerstörung der CIA führen 
„ürde. Es empfiehlt sich immer eine Pufferstufe, wie auch in 
unserem Beispiel. 

Vermeiden Sie unbedingt, ein auf Ausgabe programmiertes 
Portbit mit einer Fremdspannung von außen zu beaufschlagen, 
was zur unmittelbaren Zerstörung führt. überlegen Sie sich 
daher aut, welchen Wert Sie in das Datenrichtungsregister 
laden, damit Sie nicht versehentlich ein für die Eingabe 
voraesehenes Bit auf Ausgabe programmieren. 


Wenn Sie die Stromversorgung für Ihr Projekt dem Userport 
entnehmen wollen. beachten Sie bitte, daß Sie die beiden zur 
Verfügung stehenden Spannungen nicht mit mehr als je 19QmA 
belasten. Bei leichten übertretungen wird zunächst der 
Kassettenrecorder streiken, danach verabschiedet sich die 
Sicherung im Innern des C64 und evtl. auch die 
Primärsicherung im Trafogehäuse. Zerstört wird dabei jedoch 
nichts weiter. 


Dies sollte nur eine kleine Anleitung zur Bedienung des 
Userport in einem einfachen Anwendungsfall sein. Wollen Sie 
für komplexere Aufgaben auch die anderen Leitungen benutzen, 
so orientieren Sie sich bezüglich deren Handhabung bitte im 
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Kapitel 4. 

Grundsätzlich gilt dafür auch das oben Gesaote und 
selbstverständlich lassen sich diese Leitungen auch bequem 
von Basic aus ’POKEN’ und "PEEKEN’. 


140d-435N 


Eo7 
o 
a 
7 
» 
- 
- 
. 


“yo OEL” 
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Kapitel 2 ı DER SYNTHESIZER UND SEINE PROGRAMMIERUNG 


2.1 Der Sound-Controller 5581 


2.1.1 Allgemeines über den SID 45B1 


Mit dem im CBM 64 enthaltenen Synthesizer haben Sie die 
Möglichkeit. alle denkbaren Geräusche, vom Flötenton bis zur 
Dampflok, zu produzieren. 

Während handelsübliche Synthesizer im allgemeinen über nur 
eine Stimme verfügen (monaphon), haben Sie beim CBM 44 einen 
dreistimmigen (polvphonen) Synthesizer. 

Alle der bei einem Synthesizer zur Klangerzeugung 
notwendigen Elemente befinden sich hier auf einem einzigen 
IC, nämlich dem Sound Interface Device (SID) 4581 ist ein 
neuer Peripheriebaustein aus der 65xx-Familie. Er verfügt 
über: 


* 3 einzeln programmierbare, unabhängige Oszillatoren 
(Stimmen) 

4 mischbare Schwingungsarten für jede Stimme 

3 mischbare Filter (Hoch- Tief- Bandpass) 
Hüllkurvengenerator (ADSR-Control? für jede Stimme 

2 kaskadierbare Ringmodulatoren 

Verfremdungsmöglichkeit für externe Signalquelle 

2 8-Bit A/D-Wandler 


wu 


Das Blockschema des SID finden Sie auf der nächsten Seite. 


Pinbeleaung des 28-poligen Gehäusası 


1 - 2 CAPIA.CAPIB: Anschluß des Kondensators für die 
programmierbaren Filter. Empfohlene Kapazität 2200pF. 

3 - 4 CAPZA.CAP2B: wie 1-2. 

5 -RES (Reset); =@ bringt den SID in den Grundzustand. 

6 02 (Systemtakt 2)ı alle Datenbusaktionen finden nur 
während B2=1 statt. 

7 R/W (Read/-Write)ı Q=Schreibzugriff, Ii=Lesezugriff. 

8 -C5S (Chip Select)ı B=Datenbus gültig, i=Datenbus 
hochohmig (Tri-State). 

9 -13 AB-A4 (Adressbits B-4)ı dienen zur Auswahl eines der 
29 Register des SID. 

14 GND (Masse); Achtung: Der SID sollte eine eigene 
Masseleitung zur Stromversorgung besitzen, um 
gegenseitige Beeinflussungen mit anderen System- 
komponenten zu vermeiden! 

15-22 DGO-D7 Datenleitungen zum/vom Prozessorsystenm. 


23 A2IN (Analog Input 2)ı Handhabung unbedingt unter 
4.1.3 nachlesen! 

24 AIIN Wie 25, allerdings für A/D-Wandler 1. 

25 VCC Versorgungsspannung +3V. 

26 EXT IN (Enternal Input) Eingang für externe 
Audiosignale, die durch SID verfremdet werden sollen. 

27 AUDIO OUT Summenausgang aller im SID erzeugten oder 
behandelten Signale. 

28 VDD Versorgungsspannung +12V. 
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AUDIO OUT 


cArı HOCH |TIEF [BAND 


FILTER | 


ECKFREQUENZ 
CAP2 


SCHALTER 
LAUTSTAERKE 


HUELLKURVEN 


AMPLITUDEN- 
MODULATOR 


AIIN 


A2IN 
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Der SID 6581 besteht aus drei Synthesizerstimmen, die sowohl 
unabhänaio voneinander als auch in Verbindung miteinander 
(auch in Verbindung mit siner externen Audioquelle) benutzt 
werden können, um äußerst komplexe Schwingunasformen zu 
erzeugen. 


Jede Stimme besteht aus einem Oszillator, einem 
Schwinaungsformgaenerator, der vier unterschiedliche Wellen- 
formen erzeugen kann, einem Hüllkurvengenerator und einem 
Amplitudenmodulator. 

Der Oszillator erzeugt die Grundfrequenz im Bereich B-B8280Hz 
(bei einem Systemtakt von ca. IMHz) mit einer Auflösung von 
16 Bit. Er kann vier Schwingungsformen hervorbringen, 
nämlich Dreieck, Sägezahn. Rechteck (mit variablem Puls- 
Fauseverhältnis) und rosa Rauschen. 

Jede dieser Schwingungsformen hat den ihr eigentümlichen 
Gehalt an Oberwellen, sodaß schon allein durch die Wahl der 
Wellenform die Klangfarbe beeinflußt werden kann. 

Eine Dreieckschwingung hat, wegen ihrer Verwandtschaft zum 
Sinus (was den Dbertongehalt angeht). einen sehr weichen 
Klang, etwa wie eine Holzflöte. 

Die Sägezahnschwingung enthält ein vollständiges 
Obertonspektrum in aleichmäßiger Verteilung. Sie klingt 
daher scharf. wie z.B. eine Trompete. 

Der Rechteckschwinaung fehlen bestimmte Obertonbereiche, Sie 
klinat etwas hohl, einer Klarinette sehr ähnlich. 

Das rosa Rauschen besteht aus einer zufälligen 
Aufeinanderfolae verschiedener Frequenzen innerhalb 
festgelegter Grenzen. 


Der Verlauf der Lautstärke über einen einzelnen Ton wird 
durch einen Amplitudenmodulator beeinflußt, der vom 
Hüllkurvengenerator gesteuert wird. Wenn di r durch ein 
Triaaerbit (veraleichbar mit einer Taste am Piano) 
angestoßen wird, beginnt der programmierte Verlauf des Tones 
von Anklingphase über Haltephase zur Ausklingphase. 

Die Ausgänge aller Stimmen können außerdem noch über 
programmierbare Filter geschickt werden, um die Klangfarbe 
in weiten Grenzen zu beeinflussen. 

Um das Maß voll zu machen, können die Stimmen 1 und 2 noch 
von der Stimme 3 ringmoduliert werden. d.h. es entstehen 
außer der Grundstimme noch Summe und Differenz mit der 
Stimme S. 

Soll während des Ablaufs eines einzelnen Tones noch dessen 
Klangfarbe verändert werden (z.B. WAH-WAH-Effekt). so kann 
dies bei der Stimme 3 dadurch bewirkt werden, daß man den 
Augenblickswert des Hüllkurvengenerators ausliest und in 
Abhängigkeit von dessen Stand die Filterfrequenz oder auch 
die Oszillatorfrequenz verändert. Außerdem kann noch der 
gegenwärtige Stand des Rauschgenerators von Stimme 3 
ausgelesen werden. Man hat damit einen ausaezeichneten 
Zufallszahlengenerator. 

Der SID enthält auch noch zwei 8-Bit A/D-Wandler. Damit kann 
der jeweiliae relative Wert zweier am Controlport 
anzuschliefßender Potentiometer (z.B. Paddles) abgefragt 
werden. Die häufiaste Anwendung hierfür werden sicher Spiele 
bieten. Jedoch sind auch andere Verwendungen denkbar wie 
z.B. die Steuerung von Tonhöhe und Lautstärke (oder anderer 
Parameter) des Svnthesizers, ja sogar, bei Anschluß von 
Kaltleitern. die Verwendung als Thermometer. 
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2.1.2 


Reaisterbeschreibung des SID 


Die Basisadresse des SID im CBM 64 ist $D488(54272) 


REG 8 


REG I 


REG 2 


REG 3 


REG 4 


REG 5 


Oszillatorfreauenz niedernertioes Byte für Stimme 1 
Oszillatorfreausenz höherwertiges Byte für Stimme 1 
Pulsbreite niederwertioes Byte für Stimme I 


Pulsbreite höhernertiges Byte für Stimme 1 

Die Reaister 2 und 3 bestimmen das Puls- 
Pauseverhältnis des Rechteckausgangs von Stimme 1. 
Von Register S werden nur die Bits 8-5 benutzt. 


Steuerregister für Stimme i 

Bit 8 KEY: Steuerbit für den Ablauf des 
Hüllkurvengenerators, Beim übergang von ® nach I 
steigt die Lautstärke von Stimme 1 innerhalb der in 
REG 5 programmierten "Attack"-Zeit von null auf den 
Maximalpegel und fällt dann in der ebenfalls in REG 5 
eingesteliten "Decay"-Zeit auf den in REG 6 gewählten 
"Sustain"-Pegel ab, auf dem sie bleibt, bis das 
Steuerbit wieder B wird. Jetzt geht die Lautstärke 
innerhalb der in REG 6 programmierten "Releane"-Zeit 
auf null. 
Bit 1 SYNCı 1=Oszillator 1 wird mit Oszillator 3 
synchronisiert. Dieses Bit hat auch Wirkung. wenn die 
Stimme 3 stummgeschaltet ist. 

Bit 2 RING: i=Der Dreieckschwingungsausgang van 
Oszillator I wird durch ein Frequenzgemisch (Summe 
und Differenz der Freauenzen von Oszillator 1 und 3) 
ersetzt. Dieser Effekt tritt auch dann ein. wenn 
Stimme 3 stummgeschaltet ist. 

Bit 3 TESTı Wenn zusammen mit dem Rauschgen 
noch «eine weitere Schningungsform desselben 
Oszillators ausgewählt wurde, kann es vorkommen. dan 
der Rauschaenerator blockiert. Die Blockade kann 
durch dieses Bit wieder aufgehoben werden. 

Bit 4 TRlı ieDreieckschwingung ausgewählt. 

Bit 5 SAWı 1=Sägezannschwingung ausgewählt, 

Bit 6 PULı I=Rechteckschwningung ausgewählt. Das Puls- 
Pauseverhältnis dieser Schwingung wird in REG 2 und 
REG 3 eingestellt. 

Bit 7 NSEı I=Rauschgenerator ausgewählt. 

Anmerkung zu den Bits 4-7ı Es ist praktisch möglich, 
mehrere Schwingungsformen gleichzeitig auszuwählen. 
Zu beachten ist jedoch, außer dem zu Bit 5 OGesagten, 
dan das Ergebnis nicht etwa die Summe aller Formen 


darstellt, sondern vielmehr eine logische 
UND-Verknüpfung der Komponenten. 


ATTACK/DECAY 


Bit 8-5 Diese Bits bestimmen die Zeit, in der die 
Lautstärke vom Maximum auf den Sustainpegel abfällt. 
Der einstellbare Bereich beträgt 4msac bis 24sec. 

Bit 4-7 Hiermit wird die Zeit festgelegt, in der die 
Lautstärke nach Setzen des KEY-Bits von null auf 


Maximum ansteigt. Der einstellbare 
Zmsec bis Gsec. 


das 
Bereich batränt 
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REG & SUSTAIN/RELEASE 

Bit 98-3 Mit diesen Bits wird die Zeit eingestellt, 
innerhalb der die Lautstärke nach Rücksetzen des 
KEY-Bits vom Sustainpegel auf null abfällt. Der 
einstellbare Bereich beträgt ömsec bis Z4sec. 

Bit 4-7 Diese Bits geben den Sustainpegel an, d.h. 
die Lautstärke, mit der der Ton nach Ablauf der 
Decavzeit andauart. 


REG 7- Diese Register steuern die Stimme 2 analog zu den 
REG 15 Registern 8-6 mit folgenden Ausnahmen: 
SYNC synchronisiert Oszillator 2 mit Oszillator 1. 
RING ersetzt den Dreieckausgang von Oszillator 2 mit 
den ringmodulierten Freauenzen der Oszillatoren 2 
und 1. 


REG 14- Diese Register steuern die Stimme 3 analog zu den 
REG 28 Reaistern B-6 mit folgenden Ausnahmenı 
SYNC synchronisiert Oszillator 3 mit Oszillator 2. 
RING ersetzt den Dreieckausaanoa von Oszillator 5 mit 
dem Frequenzgemisch aus den Oszillatoren I und 2. 


REG 21 Filterfrequenz niederwertiaes Byte 
Es werden nur die Bits 8-2 benutzt. 


RES 22 Filterfrequenz höherwertiges Byte 
Die 11-Bit-Zahl der Register 21 und 22 bestimmt die 
Filtereckfrequenz, bzw. -mittenfrequenz. 
Im CBM 64 errechnet sich diese Frequenz 
folgendermaflenı 
F=(30+W#5.8)Hz wobei W die 11-Bit-Zanhl darstellt. 


REG 25 Filterresonanz und -schalter 
Bit @ il=8timme 1 wird über den Filter geleitet. 
Bit i l=ötimme 2 wird über den Filter geleitet. 
Bit 2 les5Stimme 3 wird über den Filter geleitet. 
Bit S 1=Die externe Signalquelle wird gefiltert. 
Bit 4-7 Diese Bits bestimmen die Resonanzfrequenz des 
Filters. Diese benutzt man dazu, bestimmte 
Ausschnitte des Frequenzspektrums hervorzuheban. Die 
Wirkung kann besonders gut bei der Sägezahnschwingung 
beobachtet werden. 


REG 24 Dieses Renister hat folgende Funktionen: 
Bit &-3 Gesamtlautstärke 
Bit 4 Schaltet den Tiefpaßzweig des Filters ein. 
Bit 5 Schaltet den Bandpaßzweig des Filters ein. 
Bit & Schaltet den Hochpaßzweig des Filters ein. 
Hoch- und Tiefpaßfilter haben eine Flankensteilheit 
von 12dB/Oktave. Der Bandpaßfilter hat eine solche 
von &dB/Oktave. 
Es kann mehr als ein Filter eingeschaltet sein. Ist 
z.B. Hoch- und Tiefpaß eingneschaltst, resultiert 
daraus wine Bandsperre. 
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Um den Einfluß der Filter zu Gehör zu brinaen, muß 


wenigstens ein Filter eingeschaltet sein und 
weniastens eine Stimme über den Filter geleitet 
werden. 


Allgemein gesehen wird das Filter dazu benutzt, 
bestimmte Bereiche aus einem Frequenzspektrum 
herauszufiltern. 

Daher erlaubt die Filterung eine viel feinfühligere 
und ausgeklügeltere Beeinflussung des Klangbildes, 
als es durch bloße Auswahl der Schwingungsform 
möglich wäre, 


Verändert man die Filterfrequenz während des Ablaufs 
eines Tones (bei kurzen Tönen nur in Maschinensprache 
möglich), so lassen sich die verschiedensten 
Instrumente perfekt nachbilden. 


Bit 7 l=Stimme 53 unhörbar. Von dieser Möglichkeit 
kann man Gebrauch machen, wenn der Verlauf der Stimme 
S nur zur Parametergewinnung für die anderen Stimmen 
dienen soll (siehe hierzu Register 27 und 28). 


Auf alle zuvor aufgeführten Register kann nur ein 


Schreibzuariff durchaeführt werden. Ein Lesezuariff brınat 
keine Aussage. 


Alle folgenden Regıster können nur gelesen werden. 


REG 25 A/D-Wandler 1 
REG 26 A/D-Wandler 2 


REG 27 Rauschaenerator 3 


Dieses Register liefert eine Zufallszanl, die dem 
auaenblicklichen Stand des Rauschgenerators 3 
entspricht. Der Generator muß hierzu eingeschaltet 


sein, jedoch kann die Stimme 3 unhörbar sein (Bit 7 
in REG 24 =1). 


REG 28 Hüllkurvengenerator 3 
Aus diesem Register kann man den augenblicklichen 


Stand der relatıven Lautstärke von Stimme 3 
entnehmen. So könnte man entsprechend dem 
Lautstärkeverlauf die Freauenz oder die 


Filterparameter ändern. Ein Beispiel 


hierzu finden 
Sie im Abschnitt 2.2. 


2.1.53 Der Analog/Digitalwandler 


Ein A/D-Wandler ist eine Einrichtung zur Umwandlung eines 
analogen Signals (z.B. Spannung) in einen digitalen Wert. 
Die prinzipielle Schwieriakeit bei einer solchen 
besteht darin. einen analoaen Wert mit 
Abstufung in einen diaitalen Wert mit 
(feste Intervalle) umzuformen. 

Es entsteht dabei zwanasläufia ein garößter Fehler 
einem kleinsten digitalen Schritt. 


Umwandlung 
unendlich feiner 
endlicher Abstufung 


von +/- 
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Der SID 6581 enthält zwei A/D-Wandler. Hierbei handelt es 
sich um eine Anordnunc mit einer intern erzeuaten 
Referenzspannung von ca. 2.5V. 

Der Meßvoraana besteht darin. daß eine externe Kapazität 
zunächst entladen wird und anschließend ein Wert in Register 
25 bzw. 26 übernommen wird, der der benötigten Zeit für eine 
erneute Aufladung der Kapazität auf die Referenzspannung 
entspricht. Dieser Voraana wiederholt sich zyklisch. 


2.1.5.1 Die Handhabung des A/D-Wandlers 


Aus dem oben Gesaaten eraibt sich, dan nur eine 
potentiometrische Beschaltung des Wandlers in Frage kommt. 
Als Meßwertaufnehmer eiqanen sich demnach nur veränderliche 
Widerstände in irgendeiner Form, z.B. Photowiderstände, 
Heißleiter, Kaltleiter usw. 


Sollen Spannungen gemessen werden, so müssen diese zuvor in 
eine oeeignete Form umgewandelt werden, z.B. mit Hilfe eines 
Uni junction-Transistors. 

Die Menanordnung sieht einfach so aus, daß an das eine Ende 
des Meßwiderstandes +5V angeleat werden (an den Controlports 
des CBM 64 verfügbar) und das andere Ende mit dem 
Analogeinaanga des SID (ebenfalls an den Controloorts 
verfügbar, Bezeichnuna POTX und POTY) verbunden wird. 

Der aus den Reaistern 25 und 26 ausaelesene Wert ist ein Maß 
tür den Widerstand. 

Um die ganze Skala von 8 Bit ausnutzen zu können. muß sich 
der Widerstand im Bereich von 288 Ohm (nicht kleiner!!!) bis 
2909 Kiloohm bewegen. 

Die programmtechnische Handhabuna der A/D-Wandler wird im 
nächsten Abschnitt behandelt. 


2.1.5.2 Die Verwendung von Paddles 


An den CBM 64 können handelsübliche Paddles anaeschlossen 
wer den. 

Sie werden einfach in die Controlports 1 und/oder auf der 
rechten Seite des Gerätes eingestönselt. 

Hinter einem Paddle verbirgt sich nichts weiter als ein 
Potentiometer. welches auf die im vorigen Abschnitt 
erläuterte Weise mit dem SID verbunden ist. und eine Taste, 
welche auf die Joystickposition LINKS für das eine Paddie 
und RECHTS für das andere Paddle wirkt. 

Problematischer ist das Verfahren, die Paddlewerte 
programmtechnisch auszuwerten, da. wie im Abschnitt 8.7 
näher erklärt. sich einige Bits zur Paddlesteuerunga und 
-abfrage die CIAs I und 2 mit der Tastatur teilen müssen. 
Zum einen sind dies die Tasten an den Paddles. Zum anderen 
haben wir die Anschlußmögqlichkeit für zwei Paddlepaare, also 
vier Paddles. Da der SID aber nur über zwei A/D-Wandler 
verfügt, sind die Paddles über einen Analogschalter geführt. 
Um diesen zu bedienen, werden zwei weitere Bits der CIA 1 
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heranaezoaen. 


Es muß also auch hier zur Auswertung der A/D-Wandier die 
Tastatur lahmaelegt werden, allerdinas nur für die Zeit des 
tatsächlichen Zugriffs, da man sonst mit der Tastatur nicht 
mehr arbeiten könnte. 

Die Lösung bringt folgendes kleine Maschinenprogramm, 
welches, als DATA-Statement in ein Basicprogramm 
eingebunden, wie weiter unten gezeigt, den komfortablen 


Zugriff auf alle Parameter von vier angeschlossenen Paddles 
erlaubt. 


Das Programm ist in einem Bereich angelegt, der vom 
Betriebssystem nicht benutzt wird. 

Die Rückmeldungen belegen einige Bytes, die nur während 
einer Kassettenoperation anderweitig beleat sind. 


CFBE SEI :Tastaturabfrage verhindern 
CFBF LDA #$B8 :Parameter für Paddiesatz A 
CFCi JSR SCFEC ıA/D-werte Al und A2 holen 
CFCA STX $sB83SC :und sicherstellen 

CFC7 STY #033D 

CFCA LDA $DC88 :ı Tasten A aus CIA I holen 
CFCD AND 4s8C :benötiate Bits filtern 
CFCF STA #829F :und sicherstellen 

CFD2 LDA 4848 ıParameter für Paddlesatz B 
CFD4_ JSR sCFEC :A/D-Werte Bi und B2 holen 
CFD7_ STX $BISE ıund sicherstellen 

CFDA STY #DSSF 

CFDD LDA $DCBI ;Tasten B aus CIA 2 holen 
CFEDB AND #$08C ıbenötigte Bits filtern 
CFE2 STA #82AD und sicherstellen 

CFES LDA #$FF ;alle Bits Ausgang in CIA I 
CFE7 STA $DCB2 tum Tastaturabfrage wieder 
CFEA CLI szu erlauben 

CFEB RTS sRückkehr ins Basicprogramm 
CFEC STA sDCOQ ıPaddlesatz auswählen 

CFEF DRA #$SCB :und entsprechende Bits 
CFF2 STA $DL82 :auf Ausaana setzen 

CFFA LDX #80 Verzögerungsschleife zur 
CFF& DEX ıBeruhiaung des 

CFF7_DBNE SCFF&6 ıA/D-Eingangs 

CFF9 LDX $D419 ıA/D ı holen 

EFFC LDY $D41A ıA/D 2 holen 

CFFFURTS ıRückkehr ins Hauptprouramm 


Hier nun das Basicproaramm. Schließen Sie die Paddies 
laden und starten Sie das Proaramm und 
geschieht. 


an, 
schauen Sie, was 


18 DATA 120,169.128,32,236,207,142,608,3,1408,61,3,.173 


25 DATA Q,228,41,12,141,159.2.169.64,32,236,207,142 
3a DATA 62,3,148.63,3,173,1,2208,41,12,141,160,2,169 
48 DATA 255,141.2,220,88,96,141,0,228,9,192,141,2 
5a DATA 


220.162.08,202.208,253,174.25,212,172,26,212,96 
68 FOR M=53182 TO 53247 


78 READ Aı POKE M,Atr NEXTı REM Maschinenprogramm einlesen 
88 AX=830ı REM Paddie 1 am Caontrolport 1 
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90 AY=831: REM Paddle 2 am Controloort 1 
108 BA=6472: REM Tasten von Paddlepaar A 

118 BX=B528: REM Paddle 1 am Controloort 2 
128 EY=829: REM Paddle 2 am Controlport 2 
138 BB=8350: REM Tasten von FPaddlepaar B 

149 SYS 53182: REM Alle Werte holen 

158 PRINT PEEK(AX)" "PEEK(AY)" "PEEK(BA)" "r 
160 PRINT PEEK(BX)" "PEEK(BY)" "PEEK(BB) 

17@ GOTO 1408 


2.2 Die Frogrammierung des SID 581 


Dieser Abschnitt beschränkt sich auf die Programmierung des 
Synthesizers, da die Handhabung der A/D-Wandler schon in den 
Abschnitten 2.1.3.1 und 2.1.3.2 erklärt wurde. 

Zur einfachen Erzeugung eines Tones sollten Sie zunächst 
grundsätzlich so voraehen, daß Sie zuerst Register 24 laden, 
dann die ADSR-Register (5,6,12,13,19,28), anschließend die 
übrigen Reaister, am besten in der Reihenfolge ihrer 
Stimmenzugehörigkeit, mit Ausnahme der Register 4,11 und 16. 
Diese laden Sie zum Schluß (Bit B nicht vergessen!), und 
schon erklingt der Ton. 

Folgendes kleine Proaramm soll Sie mit den Schwingungsformen 
und dem Tonumfana des Synthesizers bekannt machenı 


ID S1=-54272ı REM Stimme { 

20 52=54279ı REM Stimme 2 

s0 83=54286ı REM Stimme 3 

48 FL=54295: REM Filter Lo-Bvte 

SO FH=54294ı REM Filter Hi-Byte 

68 R6=54295ı REM Resonanz + Schalter 
78 PL=54296: REM Passart + Lautstärke 
88 POKE S1+4,8:ı POKE S2+4,9ı POKE 83+4,8 
189 POKE S1+2,8: POKE 61+J3,8 

118 POKE S1+5,8: POKE S1+6.248 

128 POKE RS,B: POKE PL,15 

130 PRINT "DREIECK" 

149 T=16ı GOSUB 308 

158 PRINT "SAÄGEZAHN" 

168 T=32: GOSUB 388 

178 PRINT "RECHTECK" 

188 T=44: GDSUB 390 

178 PRINT "RAUSCHEN" 

200 T=128: GOSUB 388 

2198 END 

388 POKE 51,81 POKE Si1+1.8 

3ıB POKE S1+4,T+1ı REM Ton einschalten 
328 FOR I=8 TO 255: FOR J=B TO 255 STEP 58 
358 POKE 51,Jı POKE Si+1,I 

348 NEXT J,I 

358 POKE 51+4,T: REM Ton ausscnalten 
368 RETURN 


Die Zeilen 1I0 bis 68 sollten vor jedem Ihrer Sound-Programme 


stehen. Sie erleichtern die Handhabung. 
Das nächste Programmbeispiel soll Ihnen die Funktion des 
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Hüllkurvengenerators verdeutlichen. übernehmen Sie der 
Einfachheit halber die Zeilen IB bis 88 aus dem voriaen 
Programm. In dem Folgenden sind sie auch weggelassen. 


188 A=9: D=9: Se: R=9ı H=488 

118 POKE 51+5,16=A+D: POKE S1+6,16*5+R 
128 POKE RS,ß: POKE PL,15 

138 POKE S1,37: POKE S1+1.17 

148 POKE S1+4,33 

158 FOR I=B TO H: NEXT 

168 POKE 51+4,32 


Sie sollten nun die Werte in Zeile 188 verändern, damit Sie 
ein Gefühl dafür bekommen. welchen Einfluß die einzelnen 
Parameter auf den Ton ausüben. 

Die Werte für A,D,S und R dürfen sich nur im Bereich DB bis 
15 bewegen. sonst gibt es einen illegal quantity error. 

Wie Sie sicher herausaefunden haben, bestimmt a die 
Anstiegszeit, D die Abfallzeit auf den Haltepegel. H die 
Haltezeit des Tones auf dem Pegel S und R die Abfallzeit auf 
null nach rücksetzen des KEY-Bits. 

Wenn der Wert für R mindestens I ist. sollten sie den Ton 
nicht, wie in den Programmbeispielen im CBM-Handbuch auf den 
Seiten 88 bis 90 dargestellt. durch den Wert B im FReq.4 
abschalten. Dabei bricht der Ton nämlich sofort ab und der 
Parameter R hat keinerlei Einfluß. 

Sie sollten vielmehr das Bit B gezielt rücksetzen. indem Sie 
das Reaister nocheinmal mit dem ursprünglichen Wert Laden, 


jedoch ohne Bit 8 {der Wert muß deshalb eine gerade Zahl 
sein), 


Nun ein Dreiklanaakkord auf dem Spinett. Behalten Sie wieder 
die Zeilen 18 bis 88 aus dem ersten Programm! 


108 A=B: D=l: S=13: R=1B: H=180 

118 FOKE Sı+5.16*A+D: POKE S1+6.16*S+R 

129 POKE S2+5.16*A+D: POKE S2+&4,16*5+R 

158 POKE S3+5.16#A+D: POKE SI+6,.16*S+R 

148 POKE RS.,8: PDKE PL.1S 

158 POKE 51.37: POKE Sı+1.17 

168 FOKE 52.154: POKE S2+1.21 

178 POKE 53.177: POKE 53+1.25 

188 POKE 51+4.33: POKE 52+4,33: POKE S3+4.33 
198 FOR I=8 TO H: NEXT 

208 POKE S1+4.32: POKE S2+4.32: POKE 53+4,32 


Im nächsten Beispiel wird die Frequenz des Tones in 
Abhängigkeit vom Verlauf der Hüllkurve verändert. Hierzu 


wird die Stimme 3 benutzt, da nur hier die Hüllkurve 
ausgelesen werden kann, 


Experimentieren Sie auch hier mit den Werten in Zeile 100. 


188 A=9: D=9; S=9: R=9: H=30 
118 POKE RS.8: POKE PL,1S 


128 POKE S3+5,16#A+Dı POKE SI3+6,16*5+R 
138 POKE 53+4,33 


148 FOR I=8 TO H: POKE SS+1,PEEK(54308): NEXT 
158 POKE 53+4.32 


168 FOR I=B TO R#4: POKE SI+1,PEEK(54388): NEXT 
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Lassen Sie zum guten Schluß noch das Raumschiff 
akustisch Revue passieren: 


120 
118 
120 
130 
148 
158 
160 
170 
188 


Sicherlich bieten Ihnen die vorstehenden Beispiele 


A=15: D=8: S5=8: R=13: H=8080 

POKE RS.2:POKE PL,15 

POKE 51.8: POKE S1+1,38 

POKE S2,8: POKE S2+1,1 

POKE SS,8: POKE S5J3+1.188 

POKE S1+5,.16#A+D: POKE S1+6,16*S+R 
POKE S1+4,129: POKE S5I3+4,23 

FOR I=B TO H: NEXT 

POKE 51+4.128: POKE SS+4,16 


Enterprise 


genügend 


Anregungen für eigene Versuche mit dem Synthesizer. 
Viel Spaß dabei. 
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2.3 SYNTHY-64 
DER MUSIK & TON SYNTHESIZER FÜR DEN COMMODORE &4 


Als man das erste Mal von dem neuen Commodore &4 und seinen 
Fähigkeiten von Ton und Farbe hörte, war mam sicherlich erst 
einmal unheimlich begeistert. Dann, nach der Lektüre des 
Commodore Benutzer Handbuches, fragte man sich sicherlich, ob da 
nicht vielleicht ein paar Seiten in diesem Handbuch fehlten. Denn 
nichts war über die Programmierung von Farbe, Ton und Graphik 


gesagt worden. Und das, wo diese Atribute doch eigentlich die 
Krönung dieses Computers sind. 


Sicherlich muß man in diesem Zusammenhang auch sagen, daß die 
Programmierung von Farbe, Ton und Graphık, nicht unbedingt als 
leicht zu bezeichnen sind - denn man muß z.B. bei der 
Tonerzeugung, jedes einzelne Regıster fur nur einen Ton 


unterschiedlich ansprechen. So benötigt man alleine für den Ton 
"C" drei FOKE-Befehle: 


POKE 54272,37: POKE 54273,17: POKE 54276,65 


Dies ist für eine einfache Programmierung eines längeren Liedes 
naturlich ungeeignet. In Schleifen mußten Sie die Erzeugung von 
ätel, Btel usw. Noten steuern. Das alles konnten einem die Freude 
an seinem Commodore 64 schon etwas trüben. Zum Glück gibt es 
Hilfsmittel, die Ihnen die ganze Arbeit mit PEEKs und POKEs und 
der aufwendigen Maschinenprogrammierung ersparen. 


Ein solches Hilfsmittel ist zum Beispiel das Programm SYNTHY 64. 
Es erlaubt die Ausnutzung der fantastischen Soundmöglichkeiten 
des Commodore 64 auch unter einer einfachen BASIC Programmierung. 
Am Beispiel von SYNTHY 64 - Sie erhalten dieses von DATA BECKER 
vertriebene Programm bei Ihrem örtlichen Commodore Fachhändler - 


wollen wir zeigen, wie leicht und komfortabel die 
Musikprogrammierung des Commodore 64 sein kann. 


Dieses Programm erlaubt das Spielen von mehreren Stimmen, die 


Anzeige des momentan gespielten Tones, das Abspeichern und Laden 
der verschiedenen Lieder und vieles mehr. 


Wir wollen in diesem Buch auch auf dieses Programm eingehen, da 
es doch die Programmierung von Musik sehr vereinfacht. 


Die Erzeugung der Töne geschieht hier wie man es von dem normalen 
Notenblatt gewöhnt ist - und das in Zusammenhang mit einer BASIC 


ähnlichen Struktur. Sie geben also eine Zeilennummer vor und 
danach die Noten oder Befehle ein. 


Noten können genau nach ihrem Namen eingegeben werden. Also wird 
zum Beispiel die Note "C” ganz einfach als "C” eingegeben. 


Bei der ersten Note jeder Stimme müssen Sie 


folgendes mit 
angeben: 


STIMME - NOTE - OKTAVE - / - DAUER 


also zum Beispiel: +65/4. + steht hier für 


Akkordeon, dann die Note "G”, gespielt in der fünften Oktave im 


1/4 Takt. Solange Sie diese Werte nicht ändern, brauchen Sie nur 
die Note anzugeben. 


das Instrument 
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Das Grundprogramm, das immer zu dem eigentlichen Musikteil 
gehört, sieht folgendermaßen aus: 


1 RUN"<CLR>" <CLR> erscheint als reverses Herz 
63000 REM 

63005 REM#r##=#= 

635010 SWP SPB SAD SD9 SSO SRO SFO RETURN PIANO 

63020 SWT 8A4 8D2 SS10 SRS SFO RETURN FLOETE 

63030 SWS SA& S5DO SS10 SR1 ZB X10 Yi2 6Fi1 RETURN TROMPETE 
63040 SWP SP1 SAO S5D9 5SO SRO SFO RETURN BANJO 

63050 SWS S5A& 5D5 552 5R2 ZH X8 Y12 SFi RETURN AKKORDEODN 


(ACHTUNG: Unser Drucker beherrscht den Klammeraffen in Verbindung 
mit deutschen Zeichen leider nicht - Wir verwenden hierfür das 
Paragraphenzeichen) 


Dieses Programm brauchen Sie nicht einzugeben. Sıe starten ganz 
einfach den SYNTHY 64, laden das Demoprogramm, unterbrechen 
dieses Programm und drücken die SHIFT und C-Taste gleıchzeitig. 
Dies löscht den Musikspeicher, behält aber das Grundprogramm. Nun 
können Sie ihre Komposition eingeben. 


Der RUN-Befen] in Zeile 1 MUSS der erste Befehl in jedem 
Musikprogramm sein, das Sie schreiben wollen. Die Zeilen 63010 
bis 63050 sind fünf, voneinander unabhängige 
Tonerzeugungsroutinen, die von Ihnen aufgerufen werden können. 
Sie brauchen dafür dem Programm am Anfang nur mitzuteilen, daß 
es, wenn es an eine bestimmte Stimme kommt (erinnern Sie sich an 
den Aufbau eines Tones), zu der entsprechenden Unterroutines zu 
gehen. In unserem Beispiel, wären wir also in die Unterrautine in 
Zeile 63050 (Akkordeon) verzweigt. 


Die Befehle, die Sie in den Zeilen 63010 bis 63050 sehen, sind 
Besonderheiten des SYNTHY 64. Durch diese Befehle werden die 
entsprechenden Register im Commodore 64 geladen. 


ACHTUNG: Diese Befehle laufen nur im Zusammenhang mit dem SYNTHY 
64, und führen ohne dessen Verwendung zu einem Fehler. 


Es handelt sich bei diesen Befehlen, um die unterschiedliche 
Ansteuerung von Generator, Filter, Ringmodulatar und um die 
unterschiedlichen Frequenzen. So können unterschiedliche 
Wellenformen gesetzt werden, die Frequenz kann frei gewählt und 
die Filter unterschiedlich geschaltet werden. 


Auf der nächsten Seite zeigen wir Ihnen an einem bekannten Lied 


("Swing low - sweet chariot"), wie die Programmierung eines 
kompletten Liedes aussehen kann. 
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SWING LOW - SWEET CHARIOT 


1 RUN"<CLR>" 

10 +G0OSUR 635050 GOSUB&A3020 

50 T150 

100 +B5/4 £64/1 +G64/2 BS/4 64/4.£#G +6/8 E/B €<D/A. 

150 G/8f8®G +6 6 6 BS B B/A4 f€D +D/1 

200 E/B£EG +€eD B/2 D/4 64/4. £€C/2 +6/8 EfeCG D/4 

250 G/B£«G +66 6 BSf€*D +B A/A 64/2. £*6G/1 +B5/4 

300 D£«G +64/8 E G 6/4 6/8 G{€C/2 +6 6/4 E/BfEeG +eD/A4. 
350 6/B£€G/1 +6 G G BS B D/4 D/2.£ €D +D/4 

400 E/B£4G +€D B/4 B 64 G/refec/2 +66 6 Efe6/2 +€D/A. 


450 A/YOKKG +G 6 G BSfeD +B A/a Gasıf€6G 
999 END 


63000 REM 

63005 REMueuarer®* 

63010 SWP SPB SAO 8D9 5SO SRO SFÖ RETURN PIANO 

63020 SWT 85A4 5D2 5510 8RS SFO RETURN FLOETE 

63030 5WS SA& SDO SS10 SRI ZB X10 Yi2 SFi RETURN TROMPETE 
63040 SWP 8P1 5AO SD9 SSO S8RO SFÖ RETURN BANJO 

65050 SWS SA&b SDS 552 SR2 ZH XB Yı2 SFi RETURN AKKORDEON 


Wenn Sie dieses Programm eingetippt haben, geben Sie ganz eınfach 


den RUN-Befehl ein, und schon hören Sie Ihr erstes Lied. viel 
Vergnügen beim Komponieren. 


Selbstverstandlich können Sie auch ihre eigenen Hilfsprogramme 
zur Erzeugung von Tönen auf dem Commodore 64 erstellen. Dafür 


sollten Sie sıch zunachst einmal ausführlich mit dem ganzen 
Kapitel 4 auseinandersetzen. 


Wichtig ist vor allen Dingen, daß Sie die Benutzung der Register 
des Sound-Controllers verstanden haben. 
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Kapitel 5 DIE GRAPHIK UND IHRE PROGRAMMIERUNG 


3.1 Der Video-Controller 6569 VIC 


3.1.1 Allgemeines über den VIC 6549 


Der VIC ist ein sehr ausgeklügeltes neues IC zur 
Bereicherung der 65xx-Familie. 

Er erfüllt nicht nur alle zur Erzeugung eines Bildes 
notwendigen Aufgaben, sondern führt auch zur Entlastung des 
FProzessors das gesamte Timing für einen dynamischen Speicher 
aus. 

Das Wichtigste in Kürze: 


16 Farben 

48 Zeichen / 25 Zeilen 

Hi-Res-Grafik mit 328 «x 289 Punkten 

5 Betriebsarten 

Handhabung von 8 Sprites mit je 24 x 21 Punkten 
Erzeugung eines normgerechten PAL-Signals 
Selbständiges Handling von 16K dyn. Ram 
Verschiebbarer Zeichengenerator 

Verschiebbarer Video-Ram 


LEE SE Se Bu SE ze zu ze; 


Pinbeschreibung des VIC 6569 


1 -7 D6-DB: Prozessordatenbus 


8 -IRO:; 8 wenn ein Bit des IMR und des IRR 
übereinstimmen 

7 -LPı Eingang, Light-Pen-Strobe 

10 -CS: Prozessorbusaktionen finden nur bei CS=® statt. 

11 R/-Wı B=Üübernahme der Daten vom Bus. 

12 BAı »® wenn Daten bei winem Lesszugriff noch nicht 
bereitstehen. 

13 VDDı +12V 

14 COLOR; Farbinformation Ausgang 

15 SYNC: Zeilen- und Bildsynchronisationsimpulse 

16 AEC: BeVIC benutzt Systembus, i=Bus frei 

17 B0OUT: Ausgang Systemtakt 

18 -RAS; dyn. Ram Steuersignal 

19 -CAS:; wie oben 

20 GND 

21 BOCOLOR; Eingang Farbfregenz 

22 BIN; Eingang Dotfrequenz 

23 All: Prozessoradressbus 


24-29 AB/AB-AS/A1S: gemultiplexter (Video-) Ram-Adressbus 
38-351 A&-A7: (Video-) Ram-Adressbus 

32-54 AB-A1lBd: Prozessoradressbus 

35-58 Di1-B8: Daten aus Farbram 

39 D7: Prozessordatenbus 

40 VEC: +5V 
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3.1.2 Registerbeschreibung des VIC 


Der VIC verfügt über 47 Register. die im Folgenden 
beschrieben werden. 


REG B Sprite-Register BD X-Koordinate 
Hier sind 8 Bits der Bildschirmkoordinate x 
enthalten, auf der das Soprite dargestellt wird. Das 
9. Bit befindet sich in REG 16. 


REG ı Sorite-Register B Y-Koordinate 
Wie oben. jedoch für die Y-Richtung. Dieses Register 
hat keinen übertrag. 


Die Register 2 bıs 15 folgen alle dem oben beschriebenen 
Aufbau. 


Registerpaar 2/3 ist für Sprite I. Paar 9/5 für Sprite 2 
un. 
Es geht weiter mit 


REG 16 MSB der X-Koordinaten 
Hier befinden sich die überläufe aus den 
Sprite-X-Reaıstern, und zwar Bit B fur Sprite 8, Bit 
1 fur Sprite 1 usw. 


REG 17 Steuerregister I 


Bit 8-2 Offset der Darstellung vom oberen Bildrand ın 
Rasterzeilen 


Bıt 3 8=24 Zeılen, 1=25 Zeilen 
Bit 4 @=Bildschırm aus 

Bit 5 1sStandart Bitmap Mode 
Bit 6 1=Extended Colour Mode 
Bit 7 übertraa aus REG IB 


REG 18 Hier wird die Nummer der Rasterzeile angegeben, bei 
deren Strahldurchlauf ein IRQ ausgelöst werden kann. 
übertrao dieses Registers in REG 17 


REG 19 X-Anteil der Bildschirmpssition, an der sich der 


Strahl nerade befand, als ein Strobe ausgelöst wurde 
(Pin LP=D). 


REG 28 Wie oben, Jedoch Y-Anteil. 


REG 21 Sprite Enable 


Jedem Sprıte ist ein Bit zugeordnet. 1=Sprite an, 
9®=Sprite aus. 


REG 22 Steuerregister 2 


Bit 8-2 Dffset der Darstellung vom linken Bildrand in 
Rasterpunkten 


Bit 5 Q=58 Zeichen, 1>248 Zeichen 
Bit 4 1=Multi Color Mode 


REG 25 Sprite Expand X 


Jedem Sprite ist ein Bit zugeordnet. 1=S5prite wird 
doppelt so breit. 
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REG 24 Basisadresse von Zeichengenerator und Videoram 

Bit 1-35 Adressbits 11-13 für die Zeichenbasis 

Bit 4-7 Adressbits 18-13 für die Basis des Videoram 
Die im CBM 64-Handbuch auf Seite 158 angegebene Belegung 
dieses Registers ist falsch! 


REG 25 IRR Interrupt Request Register 


Bit BO Auslöser ist REG 18 
Bit 1 Auslöser ist REG 31 
Bit 2 Auslöser ist REG 38 
Bit 3 Auslöser ist Pin LP 
Bit 7 =1 wenn mind. eins der anderen Bits =i ist. 


REG 26 IMR Interrupt Mask Register 
Beleguna wie oben. Bei übereinstimmung mind. eines 
Bits aus IRR und IMR wird derPin IRQ=®. 


REG 27 Jedem Sprite ist ein Bit zugeordnet. 
i=Hintergrundzeichen hat vor dem Sprite Priorität. 


REG 28 Jedem Sprite ist ein Bit zugeordnet. 1=Sprite Multi 
Color Mode. 


REG 29 Sprite Expand Y 
Jedem Sprite ist ein Bit zugeordnet. i1=Sprite wird 
doppelt so hoch. 


REG 38 Sprite-Sprite Collision 
Jedem Sprite ist ein Bit zugeordnet. Berüuhrt ein 
Sprıte ein anderes, so werden die entsprechenden Bits 
=1. Bleichzeitig wird IRR Bit 2 =1. Nach dem Ereigris 
muß dieses Register gelöscht werden, da sich die Bits 
nıcht selbsttätig zurücksetzen. 


REG 51 Sprite-Background Collision 
Wie oben, jedoch tritt das Ereignis ein, wenn ein 
Sprite Berührung mit einem Hintergrundzeichen hat. 
REG 32 Exterior Color (Rahmenfarbe) 
REG 35-36 Background Color 8-3 (Hintergrundfarben) 
REG 37-38 Sprıte Multi Color 8-i 


REG 39-46 Color Sprite 8 - Sprite 7 


3.1.3 Die Betriebsarten des VIC 


Der VIC kennt drei Grundarten der Darstellungı Zeichen aus 
einem Generator, Einzelpunktdarstellung und die Darstellung 
von Sprites. 


Sprites: 

Sprites können in ihrer Position verändert werden. Dazu 
dient ein Registerpaar. Die Auflösung der Sprite-Bewegung 
beträgt 512 x 256 Punkte. Durch diesen großen Bereich können 
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Sprites auch aus dem Bildschirm hinausbeueat werden. 

Die Farbwiedergabe der Sprites ist auf zwei Arten möglich: 
Normale Auflösung mit zwei Farben. und halbe Auflösung mit 
vier Farben. 

Im ersten Fall nat das Sprite eine Auflösung von 2421 
Punkten. Die eine Farbe stammt aus dem Sprite Color 
Register, die andere Farbe ist transparent, d.h. sie ist 
aleich der Hintergrundfarbe. 

Im zweiten Fall (Multi Color Mode: das dem Sprite 
entsprechende Bit in REG28 muß gesetzt sein) hat das Sprite 
nur eine Auflösung von 12x21 Punkten. Hierbei bilden je zwei 
Bits des Sprite-Bitmusters einen Punkt auf dem Bildschirm. 
Diese beiden Bits bestimmen die Farbe des Punktes 
folgendermaßen: 

80@=transparent 

81=Multi Color Register ® 

11=Multi Color Register 1 

18=Sprite Color 

Damit der VIC weiß, woher er das Bitmuster nehmen soll, 
existiert für jedes Sprite ein Sprite-Pointer. 

Diese acht Pointer belegen die obersten acht Bytes im 
Videoram. 

Multipliziert man den Wert eines Pointerbytes mit 64, so 
erhält man die reale Speicheradresse, wo das Bitmuster 
abgelegt sein muß. 


Normale Zeichendarstelluna: 

Bei dieser Betriebsart holt sich der VIC ein Byte aus dem 
Videoram, 

Dieses benutzt er als Zeiger auf eine Position im 
Zeichengenerator. Das dort abaeleat«e Bitmuster erscheint 
schließlich auf dem Bildschirm. 

Auf diese Weise können 256 verschiedene Zeichen dargestellt 
werden, 

Die Farbinformation für das Zeichen befindet sich in einem 
besonderen Farbram. Für jede Bildschirmposition gibt es vier 
Bit im Farbram, die eine aus 14 Farben auswählen. Diese 


Farbe gilt aber nur für die gesetzten Punkte im 
Zeichenmuster. Dis nicht Gesetzten beziehen ihre Farbe aus 
dem Hintergrund-Farbregister BB. Daher haben auch alle 


Zeichen die gleiche Hintergrundfarbe. 


Normale Zeichendarstellung im Multi Color Modes 
(REG 22 Bit 4=1) 
Bei dieser Betriebsart werden zunächst die vier Bits des 
Farbrams geprüft. Ist das höchstwertige Bit=®, so wird das 
Zeichen in der normalen 8xB-Matrix dargestellt. Die Farbe 
für die 1-Bits des Musters wird mit den übrigen drei Bits 
des Färbrams bestimmt. Die Farbe für die 8-Bits kommt wieder 
aus dem Background-Farbregister. 
Ist das höchstwertige Bit des Farbram jedoch =1, so stellen 
je zwei Bits des Zeichenmusters einen Punkt dar. Das Zeichen 
wird jetzt als 4«B-Matrix dargestellt mit doppelt breiten 
Punkten. Die Bitpärchen des Musters bestimmen jetzt die 
Farbe eines Punktes: 
®88=Hinterarund-Farbreaister 8 
@1=Hintergrund-Farbregister 1 
18=Hintergrund-Farbregister 2 
F 


ll=übrige drei Bits aus dem Farbram 
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In diesem Fall kann ein Zeichen vier Farben gleichzeitig 
haben. 


Extended Color Mode: 

(REG 17 Bit öl) 

Diese Betriebsart ähnelt dem Normalmodus, da auch hier jedes 
Zeichen nur aus zwei Farben bestehen kann. Jedoch ist die 
Hintergrundfarbe nicht notwendigerweise für jedes Zeichen 
aleich. 

Für die 1-Bits des Musters stammt die Farbe nach nie vor aus 
dem Farbram. Für die O-Bits aber wird die Farbe aus den 
beiden höchstwertigen Bits des Videoram abgeleiteti 
08=Hintergrund-Farbreaister 8 

B1=Hintergrund-Farbregister I 

10=eHinterarund-Farbreaister 2 

11=Hintergrund-Farbregister 3 

Da jetzt aber nur noch sachs Bits als Zeiger auf das 
Zeichenmuster übrig bleiben, bleibt nur noch ein Vorrat von 
64 Zeichen. 


Normaler Einzelpunktmodus: 

(REG 17 Bit 5=1) 

in dieser Betriebsart besteht ein direkter Zusammenhang 
zwischen Speicher und Bildschirm. Eim Bit im Speicher 
entspricht einem Punkt auf dem Schirm. 

Hierzu benötiat man einen Speicher von GK. Der normale 
Videoram wird jetzt als Farbram mißbraucht. Der normale 
Farbram hat keine Funktion. 

Die Auflösung beträgt 329x200 Punkte. Je ein Byte des 
Videorams liefert die Farbinformation für eine Gruppe von 
8xB Punkten, und zwar derart, daß das höherwertige Halbbyte 
für die Farbe der 1-Bits zuständig ist urj das nisderwertige 
Halbbvte für die Farbe der ®-Bits. 


Mehr farben-Einzelpunkt-Modus: 

(REG 17 Bit Seil und REG 22 Bit 4=1) 

Hier beträat die Auflösuna nur 168x208 Punkte, weil je zwei 
Bits des Speichers einem doppelt breiten Punkt auf dem 
Bildschirm zugeordnet sind. 

88=Hintergrund-Farbregister DO 

Q@1=Videoram höherwertignes Halbbyte 

10«Videoram niederwertiges Halbbyte 

il=Farbram 


Die Verschiebemöalichkeiten von Videoram und Zeichen- 
generator werden in den Abschnitten 3.3 und 3.4 behandelt. 


3.2 Die Schnittstelle zum Prozessor 


Der VIC ist wie ein normales Peripherieelement am Prozessor 
angeschlossen. Er kann ohne Einschränkung gelesen und 
beschrieben werden. Dennoch hat er das gesante 
Systembus-Timing in der Hand. 

Er ermöglicht Zugriffe oder verhindert sie, bedient den 
dynamischen Ram, usw. 

Dies ist möglich, weil der Systemtakt im VIC erzeugt wird. 
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Er weiß deshalb jederzeit. wann welche Transaktionen 
stattfinden können. Auch kann er die Steuerung des Bus durch 
den Prozessor unterbinden. Das ist immer dann nötig, wenn 
VIC auf Videoram, Charactergenerator oder Farbram zugreifen 
auß. Diese zyklischen Zugriffe müssen sein, damit 
kontinuierlich ein Bild auf dem Schirm erscheint. 

Um den Frozessor nicht bei seiner Arbeit zu storen, nutzt er 
geschickt die Taktlücken aus, in denen der Prozessor den Bus 
nicht benötigt. 

Die Vereinbarung ist einfach folgende, daß immer wenn Q2=1 
ist, der Prozessor den Bus belegt. und bei B2=B8 der VIC. Um 
den Bus auch physikalisch freizumachen, legt VIC den Fin AEC 
auf DB, worauf der Prozessor den Bus seinerseits in den 
hochohmigen Zustand (Tri-State) bringt. 

Auf diese Weise stört keiner den anderen. 


3.3 Die Schnittstelle zum Ram 


Zur Verdeutlichung des hier Gesaaten dient das Blockschema 
auf der nächsten Seite. 


Der VIC kann von Haus aus nur 16K Ram adressieren. 

Deshalb muß er. und das ist wichtig, beim Verschieben von 
Videoram oder Zeichengenerator. die beiden fehlenden 
Adressbits von außerhalb zu Hilfe nehmen. 

Die Bits werden von PAB-1 der CIA 2 zur Verfügung 
gestellt. Verändert man diese Bits. so verschiebt sich der 
Videoram gleich in 16K-Schritten. Diese Bits stellen also 
die Adressbits 14 und 15 des Videorams dar. 

Unter der Voraussetzung. daß man über genünend freien 
Speicher verfügt, kann man mit diesen Bits mehrere 
Bildschirmseiten umschalten. 

Beachten Sie hierbei bitte, daß diese Bits L-aktiv sind, 
d.h. um die unterste 14K-Seite zu saleaktieren. müssen beide 
Bits in der CIA 2 auf 1 gesetzt sein. Für die oberste Seite 
müssen beide B sein. 

Im Hi-Res-Modus könnte zum Beispiel die eine Bildschirmseite 
dargestellt werden. während eine andere unsichtbar bereits 
aufbereitet wird. 


In feineren Schritten von IK kann man den Videoram mit Hilfe 
des VIC-Reaisters 24 verschieben. Hier Ledeuten die Bits 4-7 
die Ramadressen 12-13. 


5.4 Die Characteroenerator-Schnittstelle 


Das Bild auf der übernächsten Seite illustriert die folgende 
Erläuterung. 


Ähnlich wie im vorigen Abschnitt ist der Ablauf auch hier. 
Die CIA-Bits verschieben gleichzeitig mit dem Videoram auch 
den Charactergenerator in ebensolchen Schritten. 
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Frcc 


N. 
-CHARON 
AM 
-CHAREN 
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Mit Hilfe der Bits 1-3 im REG 24 des VIC kann er in 
2K-Schritten verschoben werden. Sie stellen die Adressbits 
11-153 dar. 

Der im CBM 64 eingebaute Character-Rom besitzt dank des 
Adressmanagers einen Sonderstatus. Dieses wird vom VIC nur 
angesprochen, wenn sich seine relative Adresse zwischen 
s1088-S1FFF, bzw. #9088-S9FFF beweat. 


Tatsächlich liegt der Generator im Prozessoradressraum bei 
sDD800. 


Da der Character-Ronm rein physikalisch nicht im 
Zuoriffsbereich aller Videoadressen lieat, müssen die 
tehlenden Bits in «einem besonderen Puffer 


zwischengespeichert werden. Es sind dies die Adressbits 9-7. 
Die Charactergeneratorbasis im REG 24 spielt moch eine 
weitere Rolle. Sie leat nämlich nicht nur die Startadresse 
des Generators test. sondern Bit 3 bestimmt im 
Einzelbit-Modus auch die Lage des Bildschirmspeichers. 
Hierbei bleiben die Bits 1 und 2 unberücksichtigt. 


3.5 Die Schnittstelle zum Farb-Ram 

Das Farbram ist, im Gegensatz zu Videoram und 
Zeichengenerator, nicht verschieblich. Die Adressieruna 
kann, ebenso wie beim Character-Rom, von zwei Seiten 


erfoloen, nämlich vom Prozessorbus und vom VIC-Bus. 

Auch hier fehlen dem VICE zur Adressierung wieder die Bits 
0-7. Sie werden auf die gleiche Weise gewonnen wie beim 
Character-Rom. 

Zum VICE hin hat der Farbram eine eigene Datenschnittstelle. 
Sie ist mittels eines Analoaschalters vom Datenbus des 
Prozessors trennbar. Die Angelegenheit funktioniert denkbar 
einfach: 

Bei AEC=® (also VIC steuert den Bus) liegt der Schalter in 
Richtung VIC. Bei AEC=1 in der anderen Richtung. 

Darüber hinaus wird der Schreib/L zugriff seitens des 
Prozessors auf den Farbram vom Adress-Manager gesteuert. 


Das Blockschema auf der nächsten Seite soll diese Umstände 
noch anschaulicher machen. 
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3.5 Programmierung von Farbe und Graphik 


Die Stärken des Commodore 64, sind sicherlich seine Farbe und 
sein eingebauter Synthesizer. Aber wie soll man seine Stärken 
nutzen, wenn man nirgends erfährt, wie Graphik, Sprıtes und Ton 
su programmieren sind ? 


Auf den nächsten Seiten, nollen wir Ihnen nun erklären, wie man 
diese Commodore #64 Besonderheiten richtig anwendet, und somit 
auch die ganze Stärke dieses Rechners ausnutzen kann. 


Die Graphikmöoglıchkeiten beim Commodore 64 sind stärker, als bei 
den meisten anderen vergleichbaren Computern dieser Prei- und 
Leistungsklasse. Auch hat er eine wesentlich bessere Graphik als 
sein kleiner Eruder, der VC-20. 


Die "wichtigste Besonderheit des Commodore 64, ist die 
hardwaremäßige Möglichkeit, bıs zu 8, frei definierbaren Sprites, 
auf dem Bildschirm zu bewegen. Jedes dieser sogenannten SPRITES 
kann aus einer anderen Farbe bestehen. Es stehen insgesamt 16 
Farben zur Verfügung. Zussatzlich sind MULTICOLOR Sprites möglich. 
Diese Sprites konnen aus 5 Farben bestehen. Ein Sprites besteht 
aus einer 24 x 21 Punkte Matrix, vergleichbar mit einem Block aus 


2% 53 Buchstaben. 


Man kann jederzeit kontrollieren, ob Sprites auf dem Bildschirm 
zusammengestoßen sind, und wo sie sich befinden. Aber zu der 
Programmierung der Sprites kommen wir später noch. Nun wollen wir 


uns erst einmal mit der Programmierung von Farbe und Graphik 
befassen. 


GRAFHIK UND FARBE 


Sie können beim Commodore 64 zwischen 12 Farben wählen. Diese 
Farben können im Hintergrund und Vordergrund beliebig verändert 
werden. Die Änderung der Schriftfarbe kann auch von der Tastatur 
bewerkstelligt werden. Durch gleichzeitiges Drücken der CTRL- 
Taste oder der C= Taste (dem CBM Symbol, auf der Tastatur links 


unten) und einer Taste zwischen i und 8, werden folgende 
Schriftfarben erzeugt: 


Taste Farbe Kennzahl 


CTRL - 1 SCHWARZ o 
CTRL - 2 WEISS 1 
ETRL - 3 ROT 2 
CTRL - 4 TÜRKIS 3 
CTRL - 5 VIOLETT 4 
CTRL - 6 GRÜN 5 
CTRL - 7 BLAU 6 
CTRL - 8 GELB 7 
C= u | ORANGE 8e 
C= -2 BRAUN 7 
= -3 HELL ROT 10 
= -4 GRAU 1 11 
= =/3 GRAU 2 i2 
ia -6 HELL GRÜN 13 
= -7 HELL BLAU 14 
c= -8 GRAU 3 15 
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Es kann vorkommen, daß die Schrift auf Ihrem Bildschira nur 
schwer, oder überhaupt nicht zu lesen ıst. Das liegt an dem 
Kontrast zwischen der Schriftfarbe zum Vorder- und Hintergrund. 
So sieht beispielsweise einen grüne Schrift auf schwarzem Vorder- 
und Hintergrund sehr gut aus. Aber experimentiern Sie ruhig ein 
wenig, Sie werden dann selbst “Ihre” Schrift finden. 


Der Vorder- und Hintergrund lassen sich sich leicht durch Eingabe 
der entsprechenden Farbwerte an die Speicherstellen 53280 und 
53281 verändern. In diesen beiden Adressen stehen immer die 
momentan benutzten Bildschirmfarben. So bewirkt zum Beispiel: 


POKE 53280,0 
FOKE 55281,0 


einen völlig schwarzen Bildschirm. Die Schrift bleibt aber 
weiterhin in ihrer normlen Farbe. Um die Farbe von nur einem 
Bildpunkt zu ändern, genügt ein: 


FOKE 55296,0 


Dieser POKE-Befehl ändert die Farbe eines Zeichens in der linken, 
oberen Bildschirmecke in schwarz. Alle anderen Zeichen behalten 
ıhre normale Farbe. Diese Adresse ist die erste Adresse im Farb- 
RAN des Commodore 64. In diesem besonderen RAM befinden sich die 
Farben aller Zeichen, die auf dem Bildschirm dargestellt sind. 
Der Ganze Farb-RAM geht von 55296 bis 56295. Für jede der 1000, 
auf dem Bildschirm darstellabare Zeichen, ist also ein Byte 
reserviort. Die Adresse 55296 bezieht sich dabei auf Zeile |, 
Spalte 1, die Adresse 55297 auf Zeile 1, Spalte 2 usw. Die 
Adresse 56295 ist dann die Information von Zeile 25, Spalte 40. 


Es gıbt aber zur Zeichendarstellung noch einen anderen Speicher: 
Der Bildschirmspeicher. In diesem Speicher befindet sich das 
tatsächliche Zeichen, ohne Angabe der Farbe. Dier RAM-Bereich 
liegt bei 1024 bis 2023. 


Um auf dem Bildschirm lauter schwarzer 'A’s darzustellen, könnte 
man folgendes kleine Frogramm verwenden: 


10 PRINT CHR$(147);: REM LÖSCHEN DES BILDSCHIRMS 

20 FOR I=1024 TO 2023: REM BILDSCHIRMSPEICHER 

30 POKE 54272+I,0: REM FARBSPEICHER (54272+1024=55296) 

40 POKE I,i:z REM 1 = KENNZAHL FÜR A, 2 = B USW. 

50 NEXT: REM FÜLLE GANZEN BILDSCHIRM- UND FARBRAM 

60 GDTO #0: REM DAMIT DER BILDSCHIRM NICHT ÜBERSCHRIEBEN WIRD 


Sie sehen dann, wie sich der Bildschirm von links oben nach 
rechts unten mit lauter 'A’s füllt. 


Um noch Farbe in die ganze Sache zu bringen, könnte man die Zeile 
50 abändern: 


50 POKE 54272+I1,INT(RND(1) #16) 


Nun läuft das Programm genau so nie die erste Version ab, nit den 
Unterschied, daß jedes Zeichen in einer zufällig gewählten Farbe 


ausgegeben wird. An dieser Stell noch etwas über die 
ZUFALLSZAHLEN. Nicht jeder ist damit vertraut, obwohl man diese 
Funktion doch recht oft benötigt. Besonders bei der 


Programmierung von Spielen, kann man eigentlich überhaupt nicht 
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auf die RND Funktion verzichten. Die Benutzung ist denkbar 
einfach. Wollen Sie zum Beipiel eine Zufallszahl zwischen O und 
15 generieren, um zum Beispiel eine Zufallsfarbe zu erzeugen, so 
genügt die oben angeführte Sequenz (INT{RND(1)*16)). 


Aber damit sind natürlich die Graphikmöglichkeiten des Commodore 
64 noch lange nicht erschöpft. Die Benutzung der hochauflösenden 
Farbgraphik, 13N0t sich am besten am Beispiel eines PLOT Programms 
zeigen. Dieses Programm finden Sie am Ende dieses Kapitels. Es 
zeigt Ihnen die Verwendung einiger interssanter Graphik-adressen 
und ihre Wirkung. 


Aber zunächst, wollen wir erst einmal ein paar Fakten über die 
Graphikprogrammıerung anführen. 


Die Programmierung von Kreisen oder Linien zwischen 2 
verschiedenen Punkten, ist beim Commodore 64 leider nicht so 
komfortabel, wie bei einigen anderen Computern. So gibt es zum 
Beispiel keinen Befenl, um eine Gerade von Pnkt X anch Punkt Y zu 
ziehen. Oder eın Befehl, um einen Kreis mit einem bestimmten 
Radius an einem bestimmten Ort zu zeichnen. Das diese Befehle 
nicht existieren, heißt natürlich nicht, daß der Commodore 64 
dieses nıcht kann. Man muß es ihm nur beibringen. 


Am Ende des Kapitels über Graphik, finden Sie ein ausführliches 
Hilfsprogramm zur Erstellung von Graphiken. Wir nennen es HI-RES 
GRAPHIK-HILFE. Mit Hilfe dieses Programmes können Sie scvhnell 
und bequem einfache Graphiken erzeugen. Wollen Sie aber 
kompliziertere Graphiken darstellen, so haben wir noch ein 
anderes Programm entwickelt. Das Programm heißt SUPERGRAFHIK 64, 
und ist bei ihrem örtlichen Commodore Fachhändler zu bekommen. 
Aber zunächst können Sie sich ruhig an der Benutzung unserer 
GRAPHIK-HILFE üben. Sie werden sehen, wie schnell sich eine gute 
Graphik auf dem Commodore 64 erstellen 1äßt. 


Nun aber zu dem oben erwähnten Plot Programm. Aufgabe dieses 
Programmes ist zum einen, die Erstellung einer Sinuskurve auf dem 
Bildschirm, und zum anderen, Ihnen die Anwendung der Commodre 64 
Graphik zu demonstrieren. 


Falls Sie sich über die Bedeutung der verschiedenen Register, die 
wir in diesem Programm verwenden, informieren wollen, so können 
Sie dies im Kapitel mit dem Registerplan des Graphikprozessors 
tun. 


10 REM SINUS-PLOT PROGRAMM 

20 v=53248: REM STARTADRESSE DES GRAPHIK-PROZESSORS 
50 AD=8192: REM STARTADRESSE DER HI-RES BIT MAP 

40 POKE V+17,59: REM EINSCHALTEN DER GRAPHIK 

50 POKE V+24,24: REM a 

60 FOR 1=1024 TO 2023: REM SETZEN DES HI-RES FARBRAM 
70 = POKE I,16: REM FARBKENNZAHL 

80 NEXT I 

90 FOR 1=8192 TO 16383: REM LÖSCHEN DER HI-RES BIT MAP 
100 z POKE 1,0 

110 NEXT I 

120 FOR X=0 TO 319: REM ZEICHNEN DER X-ACHSE 

130 : Y=100: REM POSITION DER X-ACHSE 

140 : GOSUB 1000: REM AUFRUF DER ZEICHEN-ROUTINE 

150 NEXT X 


160 FOR Y=0 TO 199: REM ZEICHNEN DER Y-ACHSE 
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170 : X=160: REM POSITION DER Y-ACHSE 

180 : GOSUB 1000: REM AUFRUF DER ZEICHEN-ROUTINE 

190 NEXT Y 

2009 X=0 

z1ı0 FOR 1=-3.14159265 TO 3.14159265 STEP 0.0196349 341 


220 z REM INTERVALLGRENZEN 

230 2 Y=100+99=SIN(I)z REM FUNKTION 
240 : GOSUB 1000 

250 = X=X+1 

260 NEXT I 


270 GODOTO 270: REM DAMIT DER BILDSCHIRM NICHT VERÄNDERT WIRD 
1000 OY=320rINT(Y/B)+(Y AND 7): REM BERECHNEN DES PUNKTES 
1010 OX=8#INT (X/8) 

1020 MA=2"((7-X) AND 7) 

1050 AV=AD+DY+OX 

1040 POKE AV,PEEK(AV) OR MA: REM FLOTTEN DES PUNKTES 

1050 RETURN 


Wenn Sıe dieses Programm vom Aufbau her verstanden haben, werden 
auch Sie bald Ihre eigenen mathematischen Funktionen auf diese 
Art und Weise darstellen können. 


Schreiben Sie vielleicht doch selber mal einen Funktionenplotter 
- also ceın Programm, das nach Eingabe der Funktion und deren 
Grenze dıe Zeichnung auf Bildschirm oder Drucker gibt. Zum Thema 
Drucker und Graphik wollen wir hier noch anführen, daß eine 
übertragung der Graphik vom Bildschirm auf den Drucker, nicht 
besonders einfach ist. Sie finden in diesem Buch zwei Programme, 
mit denen Sie ein sogenanntes HARDCEOPY erstellen können. Die 
erste Version, für eine Hardcopy auf EPSON Druckern, befindet 
sich im Frogramm HI-RES GRAPHIK-HILFE, die andere Version, für 
eın einfaches Text-Hardcopy, finden Sie im Kapitel 6.5.2 unter 
dem Namen HARDCOPY. 


Was geschicht denn nun alles in unserem Plot-Programm ? Zunächst 
werden in den Zeilen 20 und 30 die beiden Startadressen für die 
Graphikseite definiert. Dann wird mit den beiden POKE Befehlen 


POKE V+17,59 und POKE V+24,24 


die Graphik eingeschaltet, oder besser gesagt von Textmodus auf 
Graphikmodus umgeschaltet. Dies ist notwendig, da der Computer 
sonst davon ausgeht, daß Sie weiterhin nur im Textmodus, also dem 
normalen Modus, arbeiten wollen. Wie Sie wissen, werden sowohl 
Text als auch Graphik in dem jeweiligen Bildschirmspeicher 
abgespeichert. Der Commodore #64 kann natürlich nur eine der 
beiden Speicher auf einmal darstellen. Würden Sie also, von 
dieser Idee ausgehend, im Textmnodus einen Graphik bearbeiten, so 
würde der Computer überhaupt nichts anzeigen. Umgekehrt, daß 
heißt also Text im Graphikmodus zu erzeugen, werden allerdings 
eigenartige Ergebnisse erzeugt. Darauf kommen wir gleich noch. 


Wenn Sie später wieder auf die Textseite umschalten wollen, 
müssen Sie wieder die beiden Adressen (V+17, V+24) auf ihren 
alten Wert setzen. Dazu speichern Sie sich am besten, die beiden 


Werte vor einer änderung, in 2 Variablen ab. Das könnte so 
aussehen: 


A1=PEEK (V+17) und A2=PEEK (V+24) 


Um nach der Graphikbearbeitung wieder in den Textmodus zu 
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gelangen, müssen Sie vorher die eben gespeicherten Variablen, in 
unserem Beipsiel die Variablen Al und A2, wieder ın die Adressen 
v+17 und V+24 zurückschreiben. Dies geschieht mıt: 


POKE V+17,Al und POKE V+24,A2 


Nun sind Sie wieder in der Textseıte, und konnen ganz normal 
witerarbeiten. 


Als nächstes müssen Sie die Graphıkseite auf dıe richtige Farbe 
bringen. Hier müssen Sıe jedes einzelne Byte ändern. Das geht 
natürlich am besten in eıner FOR NEXT Schleife. Die erste 
Schleife setzt den Graphıkbıldschirm auf dıe gewunschte Farbe, 
während die zweite Schleife die Bildschirmseite, welche die 
einzelnen Punkte enhalt, vollständig löscht. 


An der Stelle ein paar Informationen über die Punkte. 


Jeder Punkt wird als eın Bit dargestellt. Wie Sıe wıssen, kann 
ein Bit den Wert Ö oder 1 haben. 1 würde bedeuten, daß an dieser 
Stelle ein Punkt gesetzt ist. 0 bedeutet demnach, daß der Punkt 
nıcht gesetzt ıst. B Punkte zusammen ergeben ein Byte. In einer 
Zeile lassen sich 40 Byte darstellen. Dies bedeutet 8 x 40 = 320 
Punkte pro Zeile. Ahnlich verhält sich das mit den Spalten. In 
einer Spalte lassen sich 8 Punkte unterbringen. Bei 25 Zeilen 
ergıbt das eıne Auflosung von 8 x 25 = 200 Punkten. Insgesamt 
stehen also 63.000 Punkte zur Verfugung. 

Aber nun weiter. Betrachten wır einmal ein einzelnen Zeichen. 98 x 
8 Punkte pro Zeıchen ergeben 64 Punkte in einem Zeichen. Jeder 
dieser Punkte laßt sıch unabhängig von einem anderen Punkt setzen 
oder löschen. Nur bei den Farben gıbt es Probleme. Im Farb RAM 
werden nicht dıe eınzelnen Funkte, sondern dıe gesamt 8 x 8 
Matrıx beachtet. Würde man für jeden einzelnen Punkt cıne 
bestimmte Farbe wahlen wollen, so mußte man alleine #für den Farb 
RAM einen 64B RAM großen Speicher benötigen. Das wäre zıemlich 
viel verlangt. Aus dıesem Grund, müssen die 64 Punkte in diesem 
Zeichen die selbe Farbe haben. Das kommt auch der Darstellung auf 
dem Fernsehgerat zu gute. Ein höhere Farbaufloösung würde zu einem 
völlig verschwommenen Bild fuhren. 


Die Informationen sähen also folgendermaßen aus: 


Ein Zeichen: u 


“ee. ee... = 64 Punkte (der selben Farbe) 


Dıeses Zeichen, mit den 64 Punkten, könnte zum Beipsiel in 
Speicherstelle 1024 ein Buchstabe sein, oder in der selben 
Speicherstelle die Position der entsprechenden Punkte im HI-RES 


Modus. Das klingt zunächst etwas kompliziert, ist es aber 
genauer überlegung nicht. 


der 


bei 


Daraus erkennen Sie schon, daß es nicht möglich ist (zumindest 
ohne großen Programmieraufwand) Texk und Graphik zu mıschen. Das 
ist auf dem ersten Blick ein großer Nachteil. Leider ist es bei 
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keinem Computer dıeser Preis- und Leistungsklasse so einfach 
möglich Text genauso wır Graphik zu behandeln. Dann würde der 
Computer keinen getrennten Speicher fur Text und Graphik 
benötigen. Solche GRAPHIK-RECHNER liegen aber im Preis 
unvergleichbar über den Personal Computern. Und wer will schon 
aus seinem Wohnzimmer ein Rechenzentrum machen ? 


Es gibt aber einen kleinen Trick, der es ermöglicht Qraphiken zu 
beschriften. Dazu müssen Sie den Text, oder das einzelne Zeichen, 
zu einem Graphıksymbol machen. Hierzu lesen Sie das Zeichen aus 
der Zeichentabelle ein (s. Beispielsprogramm im Kapitel 2.4), und 
wandeln dieses Zeichen dann in ein Graphiksymbol um. 


Nehmen wir aber an, daß sıch an der Stelle tatsächlich ein 
Zeichen befındet. Gleichzeitig befındet sıch „Jedoch an der 
Speicherstelle 1024 auch die Farbe des Graphiksymbols. Wie Sie ja 
wissen, hat das Graphiksymbol die selbe Größe wie ein normaler 
Buchstabe (8 x 8). Sind wir also einmal in der Graphikseite, und 
kehren danach wieder in die Textseite zurück, ohne in den 
Textmode gegangen zu sein, so sehen wir anstelle eines 
Buchstabens nur ein farbiges Kästchen. Würde der Commodore 64 zum 
Beispiel eine Fehlermeldung ausgeben, so würden statt dessen nur 
dıese farbıge Kästchen erscheınen, die nıcht lesbar sind. 
Schaltet man aber wieder in den Textmodus, so können Sie einen 
Text wıeder lesen - dafür verschwindet die Graphik. 


Zum besseren Verstandnis bringen wir Ihnen hier eine Tabelle der 
verschiedenen Speicherbereiche: 


MODUS BILDSCHIRMRAM FARBRAM 
Text 1024 - 2028 55296 - 56295 
Gr aphıl: 8192 - 16383 1024 - 2023 


Aus dıceser Tabelle geht deutlich hervor, warum sich Teest und 
Graphik nicht problemlos mischen lassen. Was für den Textmodus 
dıe Position des Zeichens ist, das ist im Graphikaodus die Farbe 
des Kästchens. 


Ein weiteres Froblem ist die Generierung der Punkte. Die zu Jedem 
Zeichen (also auch zu einem Graphiksymbol) gehörende 8 x 8 
Matrix, wird mämlich folgendermaßen gefüllt: 


Der erste Punkt wird ın die obere Reihe eines jeden Blockes 
gesetzt. Die Fosition des Punktes in dieser Reihe, wird durch den 
entsprechenden FOKE Befehl gesteuert. Der nächste Punkt kommt in 
die zweite Reihe des selben Blockes usw. Nach 8 Reihen wird der 
Block gewechselt. Der nächste Block befındet sich rechts daneben 
bzw. am Anfang der nächsten Zeile. In einer Graphik sähe das so 
aus: 


8192 -> . 2-2 0200. 8200 -> . 2 u eve... 
B19IE -I . 2 an nn. 8201 -> . 2 2 2 000. 
B194 -7 2. 2.2... 

8195 -> . 2 2 2.2000. usn. 


8196 I... 00. 
8197 -I 2» - 000. . 
BI9IB -> x “nenne 
B19I >. nr... 


Nun müssen wir uns wieder etwas mit der Binärarithmetik 
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beschäftigen. Wir sagten bereits, daß die Lage des Punktes 
innerhalb der Speicherstelle abhängig ist von dem entsprechnden 
POKE. Was bedeutet das nun ? Wenn wir uns den POKE Befehl einmal 
betrachten, sehen wır, daß er aus 2 Hälften besteht. Die erste 
Adresse gibt die Adresse an, die zweite Hälfte den Wert. Um also 
in der ersten Zeile des ersten Blockes auf dem Bildschirm einen 
Punkt zu setzen, müsste der erste Teil des POKE Befehls auf jeden 
Fall lauten : "POKE R192,". Und hier begınnen dann die 
eigentlichen Schwierigkeiten. Ich kann ja mit diesem FOKE nicht 
nur einen Punkt setzen, sondern maximal 8 Punkte gleichzeitig. 
Also muß man sich zunächst über dıe Lage des Punktes oder der 
Punkte im klaren sein. Wenn dann das Muster steht, muß es noch in 
binäre Form übersetzt werden. Das sieht dann so aus: 


BEISPIEL: 


Der linke und der rechte Punkt in der Speicherstelle 8192 sollen 
eingeschaltet werden. Das bedeutet, daß das linke (b7) Bit und 
das rechte Bit (bÖ) gesetzt werden müssen: 


10000001 


Da man aber nicht sagen kann "POKE 8192,10000001", muß die binäre 
Zahl noch in dezimale Form übersetzt werden. Wir erinnern uns: b7 
entspricht 2”7 (t=128) und bO bedeutet 2°0 (=1). Also ist das 
Ergebnis 129 oder zusammen: "POKE 8192,129". Nun befinden sich in 
der ersten Zeile 2 Punkte (sofern der Graphikmodus eingeschaltet 
war). Achten Sıe also bei der Programmierung von Graphik stets 
auf diese Besonderheit des Commodore 84. Es könnte Ihnen sonst 
passieren, daß Sie sıch genauso wundern, wie wır es taten, als 
wir zum ersten mal mit der Graphik experimentierten. 


Auf den nächsten Seiten folgt nun das schon oben erwähnte 
Programm HI-RES GRAPHIK-HILFE, das Ihnen dıe Programmierung von 
Graphik erheblich vereinfachen kann. 


Noch ein Hinweis zum Schluß: Wer eine sehr komfortable 
Unterstützung der Graphikprogrammierung sucht, dem kann das 
Programm SUPERGRAPHIK 64 - aus dem Hause DATA BECKER - empfohlen 


werden. Dieses schnelle Maschinenprogramm, das keinen BASIC 
Speicherplatz belegt, bringt auf dem Commodore alle Befehle des 
bekannten SUPERGRAPHIC Boards für den Commodore 64 und dazu noch 
spezielle Befehle. An diesem Beispiel zeigt sich, wie überlegen 
der Commodore 64 selbst seinen größeren Brüdern gegenüber ist. 


Während in den großen Commodore Computern erst harwaremäßig die 
Vorraussetzungen für hochauflösende Graphik geschaffen werden 


mußten, genügt beim Commodore 64 bereits eın entsprechendes 
Programm. 


Auf der nächsten Seite zeigen wır Ihnen den Befehlsvorrat des 
SUPERGRAPHIK 64 Programmes. Damit wird die 


Programmierung von 
Graphik zum wahren Vergnügen. 
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=»## SUPERGRAPHIK/64 zu# 


SUPERGRAPHIK/64 ist eine komfortable Befehlserneiterung für den 
Commodore 64, die die Programmierung der hochauflösenden 
Farbgrafik in BASIC möglich macht. SUPERGRAPHIK/64 bietet als 
Befehle 


'GCLEAR - Löscht den Grafikbildschirm 

‘GRAPHICS - Wählt eine der sechs Betriebsarten 

'DOT - Setzt einen Punkt an die angesprochene Stelle 

‘CDOT - Löscht einen Punkt 

!TEST - Testet ob ein Punkt gesetzt 

‘LINE —- Zeichnet eine durchgezogene Linie 

'ELINE - Löscht eine Linie 

!DLINE - Zeichnet eine gepunktete Linie 

‘FILL - Malt ein ganzes Feld aus 

‘CLEAR - Löscht ein ganzes Feld 

{FRAME - Zeichnet einen Rahmen 

!CFRAME - Löscht einen Rahmen 

'MOVE - Bewegt den Graphik-Cursor 

!DRAW - Zeichnet eine Linie ab Cursor-Position 

!GSAV - Speichert den Graphikbildschirn auf Kassette / Disk 

"RECALL - überträgt den Graphikbildschirm von Kassette / Disk 
in den Arbeitsspeicher 

{DISP - Zeichnet Sonderzeichen 

!HARD - Druckt den Graphikbildschirm aus 

! TRANS - Wechselt zwischen den beiden Graphikbildschirsen 

'SPRITE - Definiert ein Sprite 

'‘SMODE - Wählt Farbe und Größe eines Sprites 

'SMDVE - Bewegt einen Sprite 

'BCOL - Gibt die Hintergrundfarbe an 

!LCOL - Gibt die Linienfarbe an 

'TEXT - Schreibt einen Text in den Graphikbildschir= 

'CIRCLE - Zeichnet einen Kreis 

'DECIRCLE - Zeichnet einen gepunkteten Kreis 

'CCIRCLE - Löscht einen Kreis 


SUPERGRAPHIK 64 wird einfach von Cassette oder Diskette geladen 
und ist dann sofort einsatzfähig. 


Erschließen Sie sich die faszinierende Welt graphischer 


Datenverarbeitung mit dem Commodore 64 und SUPERGRAPHIK/64. 


(c) Copyright by DATA BECKER 1983 
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Hier ist nun das Assemblerlisting zum GRAFIK AID-Progr amm 


110: 
120: 
130: 
140; 
150: 
160: 
179: 
180: 
190: 
200: 
210: 
220: 
2350: 
240: 
250: 
260: 
270: 
280: 
290: 
500: 
310: 
320: 
330: 
335: 
340: 
350: 


370: 
380: 
390: 
400: 
410: 
420: 
430: 
440: 
450: 
460; 
470: 


490: 
500: 
510: 
520: 
530: 
540: 
550: 
560: 
570: 
580; 
570; 


610: 
620: 
650: 
640: 
650: 
650: 
650: 


co00 
c000 
c000 
900 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
c000 
006 
c00) 
c000 
c000 
c000 
c009 
c009 
c000 
c009 


c000 
c006 
c003 
c006 
c0909 
c00c 
c00+ 
c012 
c015 
c018 
cold 


cöle 
c021 
c024 
c027 
c02a 
c02d 
02 
c032 
c034 
c037 
c039 


c03c 
c0Je 
c040 
c042 
c044 
c045 
c046 


4c 
4c 
4c 
% 
4 
ac 
ac 
ac 
4c 
“c 


20 
ad 
dd 
ad 
8d 
a? 
Bd 
9 
84 
a2 
dc 


a0 
a2 
B4 
86 
98 
ea 
E21 


le 
3e 
51 
60 
89 
86 
52 
39 
75 
dl 


3c 
11 
70 
18 
71 
3b 
ı 
18 
18 
10 
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00 
20 
td 
te 


td 


er 
esc 
xcoord 
tlag 
saske 
sa 

tep 
adr 

av 
code 
spalte 
collo 
coli 
gralo 
grahı 
getcor 
chicce 
getbyt 
vıdeo 
getpar 
cirscer 
chrout 
circh 
prınt 
load 
save 


clear 


eir 


13 

27 
#14 
97 
tlag 
869 
sid 
tap 
tap 
xcaord 
code + 1 
8400 
sB90 
82000 
sa000 
sb7eb 
taetd 
$b79e 
84900 
seld4 
se544 
7409 
sttcc 
s44d2 
#4#d5 
s+148 


8c000 
ınıt 
clear 
color 
revers 
set 
reset 
gload 
gsave 
hard 
goff 


clear ; 
vıdeo+l7 
storei 
vıdeo+r24 
store2 
027+32 
vıdeo+17 
816+8 
vıdeo?24 
4610 ; 
col ; 


“0 

> gralo 
tap 
tmp+l 


ttap),y 
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carrıage return 
escape 


punkt setzren/loscnen 
aaske tur hardcopy 
sekundaradresse 


anfang hı-res farbran 
ende = 

antang hı-res bıtnap 

ende " 

holt x- und y-coordınaten 
prutt auf ronaa 

holt byte-wert 
vıdeocontroliler 

holt tılenamen und geratenunmer 
loscht vıldschıra 

setzt ausgabeoerat 
ausgabe auf default 
ausgabe routıne 

load routıne 

save routıne 


sprungtabelle fur #unktıonen 
grafık-aodus eınschalten 
gratık loschen 

tarbe setzen 

grafık ınvertieren 
grafıkpunkt setzen 
grafıkpunkt loschen 
gratık laden 

grafık abspeichern 
hardcopy 

grafibk aus 


gratık löschen 
; grafık einschalten 


punktfarbe weiss, 
hıntergrundfarbe schwarz 


gratıhr speicher loschen 


670: c048 cB ıny 


680: c0s9 dO #6 bne cIr 

690: ch4b ed te inc tape] 

7090: codd ca dex ı nachste page 

710: cü4de dN #6 bne clr 

720: c050 60 rts 
; 

T7ay: cy51 20 fd ae color Jsr chkcoa ; #arbe setzen 

750: c054 20 9e b7 )sr getbyt ; #arbcode holen 

760: c057 a0 00 col ldy #0 

779: c059 39 04 lda 8» collo 

780: c95b 84 #d sty tap 

790: c095d 85 fe sta tape 

809: c05t 8a txa ı tarbcode 

819: chaN a2 08 ldx ®%> colhı-collo ; anzanl pages 

870: cHb2 91 fd coll sta (tap),y 

839; c054 cB ıny 

840; “u65 a0 tb bne coli 

B5u: cd67 eo fe ınc tapri 

060: c069 ca dex ı nächste page 

8970: c0da dı) Fü bne coll 

880: cHbc bU rts 

100: cVad av MN revers tay #0  grafık ınvertieren 

919: c0bt 389 0 Ida M>gralo 

929: c071 84 #d sty tap 

930: cn?E BS te sta taptl 

940; cn75 a2 20 ldx 9#> grahı-gralo : anzahl pages 

51 ca77 ol Id revl Ida (tap),y 

900: 2077 49 #1 eor NIHf ; alle bıts uadrehen 

I70: cu7b 91 fd sta ttapı,y 

980: c074 cd ıny 

990; cuTe do #7 bne revl 

1909v:  cü80 e& fe inc toapti 

1010: c0B2 ca aex ; nächste page 

1020: c083 dO #2 bne revi 

1030: c085 60 ill rts ; tehlerhafte coordınaten bei set 
; 

1950: c08& 39 80 reset Ida n$80 $ grafıkpunkt löschen 

1060: cN88 2c .byt #2c 

1070: c089 a9 90 set Ida 00 ; grafikpunkt setzen 

1080: cO08b 85 97 sta flag 

1090: cO8d 20 #d ae jsr chkcoa ; koaasa 

1100: c090 20 eb b7 jsr getcor ; x nach xcoord, y nach x-register 

1110: c093 e0 cB cpx #200 

1120: c095 bO ee bes ıll ı yrcoordinate > 199 ? 

1130: c097 a5 15 Ida xcoord+1 

1130: c099 c9 O8 cap &>320 

1150: c09b 90 0B bec ok 

1160: c09d4 dO e6 bne ıll 

1170: c09# a5 14 Ida xcoord 

1180: cOal c9 40 cap 913209 ; x-coordinate > 319 ? \ 

1190: c0a3 bO ed bes ill 

1200: cOa5S Ba ok txa i y-rcoordinate ın akku 

1210: c0a6b 4a Isr 

1210: cOa7? 4a Isr 

1210: cOaB 4a lsr 

1210: c0a9 0a ası s durch B mal 2 

1220: cOaa aß tay 


; otty = 320 # int(y/B) + ty and 7) 
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1240: 
1250: 
1260: 
1270: 
1280: 
1290: 
1300: 
1310: 
1320: 


1380: 
1350: 
1360: 
1370: 
1380: 
1390: 
1409: 
1410: 
1420: 
1430: 
1440: 
1450: 
1460: 
1470: 
1480: 
1490: 
1500: 


1520: 
1530: 
1540: 
1550: 
1560: 
1570: 
1580: 
1590: 
1600: 
1610: 
1620: 
1630: 
1549: 
1650: 


1675: 
1689: 
1685: 
1690: 
1695: 
1700: 
1705: 
1719: 


1720: 


1740: 
1750: 


c0ab 
cOae 
cobl 
c0b4 
c0b? 
cobB 
coba 
cObb 
cObe 


edel 
c0c3 
c0c5 
c0cB 
c0c9 
cdch 
coce 
c0d0 
c0d2 
c065 
c0d7 
c098 
c0da 
codd 
codt 
<del 
c0e} 


c0es 
c9e? 
c0e9 
coeb 
coec 
coef 
cofl 
c043 
c0#5 
c047 
c049 
c0fa 
cedtc 
cote 


cott 
c041 
c107 
c10# 
c11? 
eilt 
c127 
c12# 


eilsı 
c134 
c137 


c139 
eiIc 


b9 
8d 
bF7 
8d 
: 
29 
18 
dd 
84 


a5 
29 
8d 
18 
a 
6d 
85 
Ch} 
dd 
85 
18 
a5 
dd 


85 + 


a5 
85 
85 


a5 
29 
, 
a 
ba 
a0 
24 
10 
49 


7 
> 


2c 
11 
A 
66 


00 
00 
90 
00 
00 
90 
0 


(7 
08 
0 


20 
20 


90 
05 
Ya 
04 
14 
19 
le 


02 
10 
80 


td 
d4 


ei 


cl 


eı 


Lu} 
0 
“0 
40 
40 
40 


94 
20 


se 
el 


lda ault,y 
sta ofty 
lda ault+I,y ; al 320 
sta offiyel 
txa ; y-rcoordınate 
and ®7 
clc 
adce offy 
sta ofty 
8" ınttx/B) 
loa xcoord 
and 211111000 
sta oft 
elc ı av = gralo + offy +otfx 
Ida #<gralo 
ade offy 
sta av 
Ida *>gralo 
ade ofty+l 
sta av#l 
elc 
Ida av 
adce oftx 
sta av 
lda avel 
adc xcoard+i 
sta av#l 
"((7-x)and?) 
Ida xcoord 
and 87 
eor #7 
tax 
lca grbit,n ; 2 hoch na aus tabelle 
ldy 80 
bit flag 
bpl seti 
eor urtt 
and lav),y ; punkt loscnen 
‚byt $2c 
ora lav),y ; punkt setzen 
sta (av),y 
ets 


; aultıplisatıonstabelle ns320, n=0,24 


; otfxı = 
na = 2 
seti 

’ 

’ 
ault 
01 89 02 
05 80 07 
05 80 0c 
10 80 11 
15 89 16 
la 80 Ib 
’ 
grbit 
gsave 


= [3 
cd 05 
cd 08 
c9 nd 
ed 12 
c6 17 
co Ic 


.byt 1,2,4,8,810,820,8940,880 : zmeierpatenzen 


Jsr chkcon ; grafik abspeichern 
jsr getpar ; fılenanen und gerateadresse holen 
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1760: 
1770: 
1790: 
1790: 
1800: 
1810: 
1820: 
1850; 
1840: 


1860: 
1865: 
1870; 
1880: 
1890: 
1900: 


1920: 
1930: 
1940; 
1950: 
1960: 


19890: 
‚990; 
2909: 
2010: 


2060: 
2970: 
2089: 
2990: 
2109: 
2110: 
2120: 
2139: 
2lan: 
2150: 
2160: 
2170: 
2180: 
2190: 
2200: 
2210: 
2220: 
2230: 
2240: 
2250: 
2260: 
2270: 
2280: 
2290: 
2300: 
2310: 
2320: 
2330: 
2340: 


eiyt 
ce1i4l 
c143 
c145 
c147 
c149 
ci4b 
c14d 
e14t 


ct52 
e155 
c158 
c15a 
e15c 
clSe 


cld1 
c164 
c167 
cl6a 
clöd 


cıı 
clT2 
c173 
ce175 


c175 
c178B 
c1?b 
ci7e 
c180 
c182 
c184 
c180& 
c188 
c1da 
c1B8b 
c18d 
c190 
c193 
c194 
c19%& 
c198 
c19a 
cl9c 
c19e 
cla0 
claz 
clas 
clab 
claß 
claa 
clac 
claf 
cibi 


a? 
EU) 
a9 
85 
a9 
85 
a9 
85 
dc 


29 
20 
a9 
85 
a9 
Ic 


ad 
84 
ad 
84 
“c 


20 
20 
20 
37 
a0 
85 
B4 
a2 
a0 
2c 
a0 
b9 
20 
88 
10 
a9 
85 
a9 
85 
39 
85 
a0 
bi 
25 
#0 
as 
19 
85 
88 


90 
4) 
90 
+8 
20 
te 
td 
69 
48 


td 
d4 
2] 
69 
9m 
d5 


70 
1 
1 
18 
44 


td 
9e 
[2 
Du] 
20 
td 
te 
19 
97 


95 
db 
d2 


#7 
28 
15 
80 
97 
90 
14 
07 
td 
97 
07 
14 
de 
14 


#1 


ae 


ae 
b7 
11 


ci 
# 


ci 


gload 


gott 


storel 
store? 
oftx 
offy 


8% grani 
” grahı 
% gralo 
tap 

%) gralo 
tap+i 
etap 

sa 

save 


chrcon 


storel 
vıdeot!7 
store2 
videor24 
elrscr 


*+l 
*+1 
+ 
"+2 


ı hardcopy für 
ı epson fx 80 mit vc-interface 


hard 


zeilen 
gad 


spalten 


bytes 


bits 


jsr 
Jsr 
jsr 
Ida 
ldy 
sta 
sty 
Idx 
ldy 
.byt 
ldy 
Ida 
jsr 
dey 
bpl 
Ida 
sta 
lda 
sta 
Ida 
sta 
Idy 
Ida 
and 
beq 
Ida 
ora 
sta 
dey 


chkcoa 
getbyt 
chkout 
“gralo 
Wgralo 
adr 
adr+l 
“25 

#7 

s2c 

"5 
gaod,y 
print 


gad 
u40 
spalte 
#s80 
naske 
"0 
code 
Lr/ 
tadr),y 
naske 
tt2 
code 
gbit,y 
code 
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absolut speichern 


gratık laden 
tilenaaen und geräteadresse holen 
absolut laden 


load flag 


grafik aus 


bildschire löschen 


kosaa 
logische filenuaaer 
ausgabe auf drucker 


zeiger auf grafik 


anzahl der zeılen 


drucker aut gratik-modus 


ibiteuster zusamaen setzen 
bit nicht gesetzt 


bit gesetzt 


2360: cıb2 10 #0 bpl bıts 


2170; cIb4 a5 14 Ida code 

2300: cIib& 20 d2 #f 3sr prınt ı code an drucher 

2390: cIib9 46 97 lsr nasıe 

2400: cibb 90 el bec bytes 

2410: cIibd a5 td Ida aar 

2420: cib# 69 07 ade 87 ı olus carry = ® 

2430: cicı 85 #d sta adr ı acresse erhonen 

2440: cıicy 90 02 bee tt? 

2450: cIic5 eö fe inc adr+! 

2460: cic7 c& 15 tt? sec soalte ; nachste spalte 

2470: c1c9 do ct bne spalten 

2480: cich ca cex ı nacnste zeıle 

2490: cicc dO od bne zeilen 

2500: cice 39 0d ldaa scr 

2510: cidO 20 d2 #4 zer zeınt 

2520: c1d3 dc cc ## Jep circh ; ausgabe wieder auf bıldschirr 
2530: cidb Oi 40 anos ebwe 309, KCD20 3 anzahl grafılounste 
2540: cIdB 06 2a Ib “bvt 6, “#", esc, cr 3 grafib nodus 
2550: cido Od 

2560: cide 31 1b “Dvt "1*, esc ; 8 punkte pro zeile 
25702 cIide 80 30 20 ge: .bvt 3580,140,6820,110,8,4,2.1 ; zweierpntenren 


2580: cteil 10 08 04 
2590: cles 02 0! 
2600: clie6 ‚end 


Hier wieder ein Ladeprogramm in BASIC 


100 for i = 49152 to 49637 

ilO read x : poke i,x : s=s+x : next 

120 data 76, 30,192, 76, 60,192, 76, 81,192, 76,109,172 
130 data 76,137,192, 76,134,192, 76, 82,193, 76, 57,193 
140 data 76,117,193, 76, 97,195, 32, 60,192,173, 17,208 
150 data 141,112,193,17T, 24,208,141,113,193,169, 59,141 
160 data 17,208,169, 24,141, 24,208,162, 16, 76, 87,192 
170 data 160, 0,162, 32,132,253,134,254,152,234,145,253 
180 data 200,208,251,230,254,202,208,246, 96, 32,253,174 
190 data 32,158,183,160, 0,169, 4,132,253,133,254,138 
200 data 162, 4,145,2553,200,208,251,250,254,202,208,246 
210 data 96,160, 0,169, 32,132,253,133,254,162, 32,177 
220 data 255, 75,255,145,253,200,208,247,230,254,202,208 
230 data 242, 96,169,128, 44,169, 0,133,151, 32,253,174 
240 data 32,275,183,224,200,176,238,165, 21,201, 1,144 
250 data 8,208,230,165, 20,201, 64,176,224,138, 74, 74 
260 data 74, 10,168,185,255,192,141,115,193,185, 0,193 
270 data 141,116,193,138, 41, 7, 24,109,115,193,141,115 
280 data 193,165, 20, 41,248,141,114,193, 24,169, 0,109 
290 data 115,193,133,253,169, 32,109,116,193,135,254, 24 
300 data 165,253,109,114,193,133,253,165,254,101, 21,133 
510 data 254,165, 20, 41, 7, 73, 7,170,189, 49,193,160 
320 data 0, 36,151, 16, 5, 73,255, 49,253, 44, 17,253 
350 data 145,255, 9, 0, 0,64, 1,128, 2,192, 3, 0 
340 data 5, 64, 6,128, 7,192, 8, 0, 10, 64, 11,128 
350 data 12,192, 13, 0, 15, 64, 16,128, 17,192, 18, O0 
360 data 20, 64, 21,128, 22,192, 25, O0, 25, 64, 26,128 
370 data 27,192, 28, 0, 30, 1, 2, 4. 8, 16, 32, 64 
380 data 128, 32,253,174, 32,212,225,162, 0,160, 64,169 
390 data 0,133,253,169, 32,133,254,169,253,133,185, 76 
400 data 216,255, 32,253,174, 32,212,225,169, 1,133,185 
410 data 169, 0, 76,213,255,173,112,195,141, 17,208,173 
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420 data 117,193,141, 24,208, 76, 68,229, 0, 0, 0, © 
430 data oO, 32,253,174, 32,158,183, 32,201,255,169, 0 
440 data 160, 32,133,253,132,254,162, 25,160, 7, 44,160 
450 data 5,185,214,19%3, 32,210,255,136, 16,247,169, 40 
460 data 1353, 21,1649,128,133,151,169, 0,133, 20,150, 7 
470 data 177,253, 37,151,240, 7,165, 20, 25,222,193,133 
480 data 20,136,209,240,165, 20, 32,210,255, 70,151,144 
490 data 225,165,253,105, 7,133,2537,144, 2,230,254,198 
500 data 21,208,207,202,208,189,169, 13, 32,210,255, 76 
510 data 204,255, 1, 64, 6, 42, 27, 13, 49, 27,128, 64 
520 data 32, 16, 8, 4, 2, 1 

550 if s <> 60459 then print "fehler in datas !!" : end 

540 print "ok !" 


Wie wendet man nun das Grafik-Hilfsprogramm an ? 


Der Aufruf der einzelnen Funktionen geschieht über 
SYS-Aufrufe, wobei teilweise noch Parameter mit übergeben 
werden. Zu Beginn des Programms werden die Adressen der 
Routinen an Variablen übergeben, die beım späteren Aufruf 
verwendet werden. Danach können noch - smeit erforderlich - 
Parameter durch Komma getrennt übergeben werden. In unserem 
Beispiel wurden folgende Namen verwendet: 


X - horizontale Koordinate eines Grafikpunkts, O0 bis J1? 
Y- vertikale Koordinate, O bis 197 

Die Koordinate 0,0 liegt in der linken oberen Ecke 
PF- Farbe eines Grafikpunkts, O bis 15 
HF- Farbe des Hintergrunds, O bis 15 


LF- logische Filenummer des Druckers, 1 bis 255 
100 IN = 12»4096: REM SYS IN - GRAFIK EINSCHALTEN 
110 EL = IN#3 : REM SYS CL - GRAFIK LOSCHEN 
120 CO = IN+& s REM SYS CO,PF#ri6+HF - COLOR SETZEN 
120 RV = IN+9 ı ken SYS RV - GRAFIK INVERTIEREN 
130 SE = IN+12 : REN SYS SE,X,Y - GRAFIKPUNKT SETZEN 
180 RS = IM#+1S 2: REM SYS RS,A,Y - GRAFIKPUNKT LoSCHEN 
156 GL = IN+IB : REM SYS GL,"NAME”,I ODER 8 - GRAFIK LADEN 
160 65 = IN+21 : REM SYS 65,"NAME".I ODER 8 - GRAFIK ABSPEICHERN 
170 HD = IN+24 : REM SYS HD,LF - HARDCOPY AUF DRUCKER 
180 OF = IN*27 REN SYS OF - GRAFIK ABSCHALTEN 


200 SYS IN : REM GRAFIK EIN 

210 PF = 1 : REM PUNKTFARBE = WEISS 

220 HF = 0 : REM HINTERGRUNDFARBE = SCHWARZ 

230 SYS CD, I16#PF+HF : REM FARBE SETZEN 

240 REM ZEICHNEN DER X-ACHSE 

250 FOR X = 0 TO 319 : SYS SE, X, 100 : NEXT 

260 REM ZEICHNEN DER Y-ACHSE 

270 FOR Y = 0 T0 199 : SYS SE, 160, Y : NEXT 

280 REM ZEICHNEN DER SINUS-KURVE 

290 Pi = 3.14159265 : X = OÖ 

300 FOR I = -PI TO PI STEP 2«P1/J19 

310 SYS SE, X. 100+99a5INtl) 

320 X = X+l : NEXT 

330 SYS 65, "SINUSKURVE*”,8 : REM GRAFIK AUF DISKETTE ABSPEICHERN 
340 OPEN 1,4,1 ; REM DRUCKER oFFNEN, EPSDN-MODUS 
350 SYS HD,I : REM HARDCOPY AUF DRUCKER GEBEN 
360 CLOSE 1 : REM DRUCKERFILE WIEDER SCHLIESSEN 
370 SYS OF : REM GRAFIK AUSSCHALTEN 
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3.7 Sprites - Das Zauberwort des Commodore 64 
EINFÜHRUNG 


Neben der hochauflösenden Graphik ist mit Sicherheit die 
Erzeugung sogenannter SPRITES das hervorragende Merkmal des 
Coaacodore 64. Diese Sprites sind eigenständige, kleine Graphiken, 
die unabhängig voneinander kontrolliert werden können. 
Gleichzeitig ersparen Sie sich bei der Verwendung von Sprites, 
das ewige Umschalten auf die Graphikseite, da der Commodore 64 


diese Sprites nach nach einem anderen Prinzip, als die normale 
Graphik verwaltet. 


MÖGLICHKEITEN 


Der Commodore 64 hat die Möglichkeit, bis zu B Sprites (von O bis 
7) auf dem Bildschirm darzustellen. Sie brauchen einfach einen 
bestiasten Speicherbereich zu wählen, dem entsprechenden Sprite 
eine Nummer zu geben, und bei Bedarf ein oder auszuschalten. 
Durch Angabe der X-Y Koordinaten, können Sie das Sprite von einer 
Seite des Bildschirms zur anderen bewegen, ohne die vorherige 
Position des Sprites löschen zu müssen. Sie brauchen keinen 
Bildschirm RAM mehr zu verändern oder irgendwelche Veränderungen 
im Farb RAM vorzunehnen. Das geschieht nun alles automatisch 
tbzw. vom 6569 Video Display Chip gesteuert). 


Außerdem können Sie die Sprites in vertikaler und 7/7 oder 
horizontaler Richtung vergrößern; eine Kollision zwischen 
verschiedenen Sprites und einem bestimmten Hintergrund 
feststellen und darauf reagieren; die Priorität wählen - Sprites 
können vor oder hinter dem Hintergrund erscheinen. Dies 
ermöglicht auch eine räumliche Darstellung der Sprites. Der 
Commodore 64 hat also die Möglichkeit, dreidimensionale Graphiken 
zu erzeugen. Durch dieses überlagern von Sprites, lassen sich 
Effekte erzeugen, die man bisher nur mit großen Schwierigkeiten, 
und enormen Programmieraufwand erstellen konnte. 


AUFBAU 


Bei der Benutzung der Sprites, ist es von besonderer Wichtigkeit, 
über die Binärarithmetik und die Register des Graphikprozessors 
6569 Bescheid zu wissen (Kapitel 1.1 und 3.1.1). Falls Gie diese 
Kapitel noch nicht gelsen haben sollten, oder diese noch nicht 
richtig verstanden haben, lesen Sie sich die entsprechenden 
Abschnitte am besten noch einmal durch. Dadurch werden Sie die 
nächsten Seiten wesentlich leichter verstehen. 


Die wichtigste Aufgabe bei der Generierung von Sprites, fällt den 
46 Registern zu (siehe Kapitel 3.1.1). Mit diesen Registern 
lassen sich Bewegung, Farbe und alle anderen Besonderheiten der 
Sprites, steuern. Jedes Register besteht aus 8 Bit, die der 
Anwender nach seinen Erfordernissen setzen oder löschen kann. Ein 
anderer wichtiger Teil #ür die Sprites, ist die eigentliche 
Position der Punkte. Wie Sie wissen, besteht jedes Sprite aus 24 
x» 21 Punkten, die entsprechend der Graphikprogrammierung gesetzt 
werden können. Da aan aber durch einen POKE Befehl maximal B 
Punkte setzen oder löschen kann, aber in der horizontalen 
Ausdehnung des Sprites, insgesamt 24 Punkte zur Verfügung stehen, 
mußte man einen besonderen Weg gehen. 


So setzt sich jedes Sprite aus aus 3 SERIEN zusammen, die jeweils 
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aus einer 53 x 21 Punktematrix bestehen. Bei der Programaierung, 
ist nun darauf zu achten, daß jeweils die 35 Serien einer lIeile 
immer nebeneinander stehen. 


Hier die Veranschaulichung über den Aufbau einer Series 


SERIE 


ZEILE 
ZEILE 
ZEILE 
ZEILE 
ZEILE 
ZEILE 


u2unn 
. 
. 
. 
. 
. 
. 
. 
. 


ZEILE 21 .. 2.2000. Pe Pe Er 


Jede einzelne dieser Zeilen, setzt sich also aus 3 Serien, mit je 
8 Bit zusammen. Der Informationsinhalt eines jeden Sprites kann 
sich aus zwei Möglichkeiten zusammensetzen. 


1.) Das einfarbige Sprite 


Bei diesem Sprite, entspricht jedes Bit genau einem Punkt. Dieser 
Punkt hat dann entweder die Farbe, die in seinem entsprechenden 
Register vermerkt ist, oder aber die Farbe des Hintergrundes - 
das heißt, daß dieser Punkt als nicht gesetzt erscheint. 


2.9 Das MULTICOLOR Sprite 


Bei diesem Sprite entsprechen jeweils zwei Bit einem Punkt. Diese 
zwei Bits geben Auskunft über das Register, aus dem die Farbe des 
Sprites entnommen wird. So läßt sich ein Multicolr Sprite, aus 
maximal drei Farben zusammensetzen (außerdem die Farbe des 
Hintergrundes für einen nicht gestzten Punkt). 


Auf die Programmierung der Sprite gehen wir im nächsten Kapitel 
noch genauer ein. 
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3.7.1 Programmierung der Sprites 


EINFÜHRUNG 


Man geht bei der Programmierung der Sprites genauso vor, wie wir 
es für die Programmierung in Maschinensprache gelernt haben. 


Man überlegt sich also zuerst die Position 
gesetzt werden sollen, wandelt dieses 
Dezimalzahlen um, und hat damit die entsprechenden Werte für die 
POKE Befehle. Da man diese Punkte aber nicht immer wieder neu zu 
berechnen braucht, also ganz anders, als bei der 
Graphikprogrammierung, hat man hier die Möglichkeit, die Werte in 
DATA Zeilen bereit zu stellen. Dann liest man diese Werte, mit 
Hilfe einer FOR NEXT Schleife ein, schreibt diese in einen 
bestimmten Speicherbereich, und schon steht einem das somit 
erstellte Sprite zur Verfügung. Wichtig ist nur, daran zu denken, 
daß auch nicht gesetzte Punkte, in Form eıner 0 an der 
entsprechenden Stelle, mit anzugeben. Um die Programmierung 
deutlicher zu gestalten, sollten Ihre DATA Zeilen so aussehen: 


der Punkte, die 
Binärmuster dann in 


1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 000,000,000 
1030 DATA 000,000,000 
1040 DATA 000,000,000 
1050 DATA 000,000,000 
1060 DATA 000,000,000 
1070 DATA 003,255,255 
1080 DATA 000,002,000 
1090 DATA 192,170,128 
1100 DATA 194,150,080 
1110 DATA 234,150,080 
1120 DATA 194,170,168 
1130 DATA 192,170,168 
1140 DATA 000,032,128 
1150 DATA 000,170,160 
1160 DATA 000,000,000 
1170 DATA 000,000,000 
1180 DATA 000,000,000 
1190 DATA 000,000,000 
1200 DATA 000,000,000 


Sie können an diesem Aufbau deutlich die 3x 21 Struktur 


der 
Spriteprogrammierug erkennen. Jede Zahl zwischen 1 und 2553 
repräsentiert ein bestimstes Punktemuster innerhalb eines 
Sprites. 


So ist es also möglich, jede beliebige Figur, von einem 
Punkt bis hin zum vollen 24 x 21 Block, zu programmieren. Worin 


liegt aber nun der Unterschied zwischen der hochauflösenden 
Graphik und den Sprites ? 


ANWENDUNG 


Um diese Frage zu beantworten, sauß man 
Anwendungsgebiet der Sprites betrachten: Es sind hauptsächlich 
Spiele, und verschiedene Trickdarstellungen, die diese Anwendung 
interessant machen. Denn im Gegensatz zu einer Graphik, bleiben 
hier die Formen der Figuren immer gleich. Es kann höchstens 
vorkommen, daß sie sich ausdehnen. Aber ihre Struktur bleibt 
immer gleich. Diese Figuren müssen sich aber bewegen können. 
Graphiken dagegen, haben keine feste Formen - man kann zum 


zunächst einmal das 


Beispiel an das Plotten einer Funktion denken. Oder stellen wir 
uns einmal die bekannte "Kuchengraphik" vor, wie sie zum Beispiel 
bei der Darstellung von Wahlergebnissen vorkommen, oder die 
graphische Darstellung eines Geschäftsjahres. Der Comaodore #64 
ist in der Lage beide Formen der Darstellung zu ermöglichen. 


Die Sprites lassen sich aber ebenso gut auch für gewerbliche 
Zwecke einsetzen. Möglichkeiten hierfür, bietet zum Beispiel die 
Erzeugung von Laufschrift. Stellen Sie sich einaal eine 
Repräsentation eines Produktes, mit Hilfe des Commodore 64, 
seiner Graphik, seiner Farbe und seines Tones vor ' 


DIE IDEE DER PROGRAMMIERUNG 
Jetzt aber zur eigentlichen Programmierung der Sprites. 
Nach einmal zu unserem Beispiel von eben. Was stand da eigentlich 


in den DATA Zeilen ? Um dieses zu erkennen, müssen wir die 
Dezimalzahlen in Binärzahlen umwandeln: 


SERIE 
1 2 3 
ZEILE 1 00000000 00000000 00000000 
ZEILE 2 00000000 00000000 00000000 
ZEILE 3 00000000 00000000 00000000 
ZEILE 4 00000000 00000000 00000000 
ZEILE S 00000000 00000000 00000000 
ZEILE 6 00000000 00000000 00000000 
ZEILE 7 00000000 00000000 00000000 
ZEILE 8 00000001 ıı1ı1ı1ı111 1111111141 
ZEILE 00000000 00000010 00000000 
ZEILE 10 11000000 10101010 10000000 
ZEILE 11 11000010 10010110 01010000 
ZEILE 12 11101010 10010110 01010000 
ZEILE 13 1ı1 1000010 10101010 10101000 
ZEILE 14 11000000 10101010 10101000 
ZEILE 15 00000000 00100000 10000000 
ZEILE 16 00000000 10101010 10100000 
ZEILE 17 00000000 °o00000000 00000000 
ZEILE 18 00000000 00000000 00000000 
ZEILE 19 00000000 00000000 00000000 
ZEILE 20 00000000 00000000 00000000 
ZEILE 2 00000000 00000000 00000000 


Auch wenn Sie es nicht genau erkennen können, hier wurde ein 
Hubschrauber programmiert. Auf dem Papier kann man dieses Sprite 
natürlich nicht so darstellen, wie es auf dem Fernseher möglich 
ist. 


EINSCHALTEN 


Nach der Generierung der Sprites, besteht nun die Möglichkeit 
diese beliebig zu verändern. 


Als erstes wird dazu das Sprite eingeschaltet. Hierfür wird in 
das Register 21 die Kennziffer der einzuschaltenen Sprites 
gebracht. 


Spriter 7 [-) 5 4 3 2 1 ° 
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Bit: b7 b& b5 b4 b3 b2 bi bo 


Durch POKE 21,1 wird also das Sprite O0 eingeschaltet, POKE 21,3 
schaltet demnach Sprite O und Sprite 1 ein, und POKE 21,255 würde 
alle Sprites aktivieren. 


SPEICHERBERE ICH 


Danach muß die Adresse des Sprites definiert werden. Dazu stehen 
die Adressen 2040 bis 2047 zur Verfügung. In diesen Adressen wird 
der Anfangsbereich der Sprites festgelegt. Ein Sprite besteht aus 
63 Byte. Durch die Angabe der Blockzahl, in der zu dem Sprite 
gehörenden Adresse, wird der entsprechende Speicherbereich 
definiert. Als Beispiel soll nun Block 13 gelten. 13 = 64 Byte 
(Länge eines Sprites + 1, für die Startadresse des nächsten 
Sprites) ergibt die Anfangsadresse 832. 


Register Adresse 
Pointer 

11 ” 64 = 704 

13 *” 64 = 852 

14 “64 = 896 

15 “64 = 960 


Mit diesen Blöcken können Sie aber nur 4 verschiedene Sprites 
adressieren. Um auch noch andere Sprites ansprechen zu können, 
müssen Sie zunächst den BASIC Start verschieben, um so genügend 
Raum #ür andere Sprites zu schaffen. Diese Verschiebung können 
Sie folgendermaßen bewerkstelligen: 


POKE 44,10 (Basic Start an $0A00) 
POKE 10*256,0 (Erstes BASIC Byte = 0) 
NEW (Zurücksetzen der Pointer) 


In der folgenden Tabelle finden Sie die Adressen für die Register 
Pointer der entsprechenden Sprites: 


Adresse: 2040 2041 2042 20453 2044 2045 2046 2047 
Sprite: o 1 2 3 4 5 6 7 


Wenn man nun in die Adresse 2040 den Wert 13 schreibt, soi 
bedeutet das also, daN das Sprite ab Speicherstelle 832 zu finden 
ist. Nun kann ich auch an die Stelle 2041 den Wert 13 schreiben, 
was bedeuten würde, daß Sprite 1 und Sprite 2 in der Forma 
identisch wären. Alle anderen Informationen, wie Position, Farbe 
etc. können dagegen unterschiedlich sein, was natürlich den 
Programmieraufwand auf ein Minimum reduzeirt. Wie Sie sehen, 
braucht bei der Programmierung keine weiteren Adressen verändert 
zu werden. Es wird einfach die Nummer des Sprites angegeben. Der 
Computer erledigt den Rest. So wird die Programmierung der 
Sprites zu einem Kinderspiel. 


Nun werden durch eine FOR NEXT Schleife alle Werte des Eprites in 
den Speicherbereich ab 852 übertragen. 


FOR 1=0 TO 62: REM 65 BYTES EINES SPRITES 
READ X: REM LESEN DES BYTES 


POKE 832+1,X: REM SCHREIBEN DES BYTES IN DEN BLOCK 
NEXT I: REM ENDE DER SCHLEIFE 
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Danach können alle Informationen über das Sprite mit einea oder 
zwei POKES verändert werden. 


POSITION 


Als erstes wollen wir uns nun mit der Lage des Sprites auf dem 
Bıldschirm befassen, Für die Position auf dem Bildschirm, hat 
jedes Sprite zwei Register. Das erste Register für Sprite OÖ ist 
auch das Register 0. In diesem Register steht die Position des 
Sprites auf der X-Achse (die horizontale Achse). Im nächsten 
Register steht dementsprechend die Position auf der Y-Achse 
(vertikale Achse). 


In unseren Beispielen, wird ab jetzt immer die Variable V (für 
Video Controller) verwendet. Diese Variable hat den Wert 53248. 
Diese Adresse ist die Anfangsadresse des Video Controllers. Ihre 
erste Zeile in jedem Programm, in dem Sie Graphik oder Sprites 
verwenden, sollte daher lauten: 


v=53248: REM START DES VIDEO CONTROLLERS 


Zur Positionierung des Sprites auf dem Bildschirm genügen nun 
zwei POKE Befehle: 


POKE V+0, SPALTE: REM SPRITE 0 - X 
POKE vV+1, ZEILE: REM SPRITE 0 - Y 


Wenn wir also unseren Hubschrauber in die Mitte des Bildschirms 
positionieren wollen, genügt: 


POKE V+0,160: POKE V+1,120 
VERSCHIEBEN DER SPRITES 


Von dieser Position aus, können wir das Sprite natürlich auch 
genauso leicht an einen anderen Punkte bewegen. Um eine fließende 
Bewegung zu erzeugen, müssen wir die jeweiligen Register um 1 
verändern. Dies geschieht durch die Verwendung einer FOR NEXT 
Schleife. Zum Beispiel so: 


FOR I=159 TO 100 STEP -1 
POKE V+0,1 
NEXT I 


Diese Routine verschiebt den Hubschrauber um ein ganzes Stück 
nach links. Er bleibt aber trotzdem auf der selben, horizontalen 
Achse. Wenn Sie die Bewegung des Sprites sichtbar machen wollen, 
müssen Sie vor dem NEXT I noch eine weitere FOR NEXT Schleife 
einsetzen: 


FOR II=1 TO 100 
NEXT II 


Nun verschiebt sich das Sprite wesentlich langsamer, und Sie 
können seine Bewegung beobachten. 


Ein Problem werden Sie vielleicht schon erkannt haben: Es gibt 
320 horizontale Positionen, aber der maximale Wert bei einem POKE 
ins X-Register kann nur 255 betragen. Wie kann man das Sprite nun 
an den rechten Bildschirmrand bringen ? 
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Für diese Aufgabe gibt es ein weiteres Register. Im Register 16 
befindet sich für jedes Sprite ein besonderes Bit. In diesem Bit 
wird markiert, obe eine X-Koordinate verwendet werden soll, die 
über 255 liegt. Zu diesem Zweck, wird vor der Adressierung, das 


entsprechende Bit auf 1 gesetzt. Für unseren Hubschrauber hieße 
das: 


POKE V+16,1 


Nach diesem POKE wird zu unserer Adressierung Jeweils der Wert 
255 dazuaddiert. Nun würde ein POKE vV+O0,1 also eine 
Positionierung auf dem Punkt 256 bedeuten. Um wieder an Punkte 


kleiner 256 zu gelangen, muß dieses Pit wieder zurückgesetzt 
werden: 


POKE V+16,0 


Mit Hilfe dieser Einrichtung, ist es nun leicht möglich, jedes 
Sprite beliebig und anabhängig voneinander über den Bildschirm 
wandern zu lassen. 


FARBE 
Als weitere Möglichkeit, können wir noch die Farbe des Sprites 
ändern. Hierzu verfügt jedes Sprite über ein Farbregister. Diese 


Register sind die Register 39 bis 46: 


Register: 39 40 41 42 43 44 45 46 


Sprite: {0} 1 2 3 4 5 6 7 
Farben: 

o Schwarz 

1 Weiss 

2 Rot 

3 Türkis 

4 Violett 

5 Grün 

& Blau 

7 Gelb 

[:] Orange 

7 Braun 
10 Hell Rot 
11 Grau 1 
12 Grau 2 
13 Hell Grün 
14 Hell Blau 
15 Grau 3 


Unser Sprite bekomat also durch den Befehl: 
POKE Vv+39,14 
eine hellblaue Farbe. 
VERGRÖSSERUNG 
Die nächste Besonderheit des Commodore 64, ist die Möglichkeit, 
die Sprites in horizontaler und / oder vertikaler Richtung zu 


vergrößern. Auch für diese Vergrößerung gibt es zwei Register. 
Eines für die Vergrößerung in X- und das andere für die 
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Vergrößerung in Y-Richtung. Es gibt aber nur diese beiden 
Register, die für alle Sprites verantwortlich sind. Daraus ergibt 
sich die Notwendigkeit, das jeweilige Sprite zu codieren. 


Jedes Sprite-Kontroll-Register, ist daher folgendermaßen 
aufgebaut: 

Byte: 7 [-) 5 4 3 2 1 ° 

Sprite: 7 & 5 4 3 2 1 ° 


Soll nun das erste Sprite (also Sprite 0), sowohl in X- als auch 
in Y-Richtung vergrößert werden, so sind folgende POKE Befehle 
notwendig: 


POKE V+23,1: REM VERGRÖSSERT SPRITE O IN Y-RICHTUNG 
POKE V+29,1: REM VERGROÖSSERT SPRITE © IN X-RICHTUNG 


Um Sprite OÖ und Sprite 1 in Y-Richtung zu vergrößern, brauchen 
Sie nur einen FOKE V+23,3 anzuwenden usw. 


Jedes Sprite kann in X- und / oder Y-Richtung um den Faktor 2 
vergrößert werden. Das bedeutet, daß zum Beispiel bei der 
Erzeugung von Laufschrift, ein Zeichen insgesamt um den Faktor 4 
vergrößert werden kann. 


HINTERGRUND 


Das nachste Beispiel demonstriert eine weieter Besonderheit. Sie 
können wählen, ob das Sprite vor oder hinter dem Hintergrund 
plazıert wird. Dies kann natürlich hübsche Effekte hervorrufen. 
Wenn Sie unseren Hubschrauber auf dem Bildschirm haben, versuchen 
Sie einmal den Befehl: 


POKE V+27,1 


Durch diesen Befehl, sagen Sie dem Sprite, ob es vor oder hinter 
dem Hintergrund erscheinen soll. Um eine Reaktion zu erkennen, 
aüssen Sie mit dem Cursor in die Zeile gehen, in der sich das 
Sprite auf dem Bildschirm befindet. Dann geben Sie einfach ein 
paar Zeichen ein, gerade soviel, daß das Sprite von den Zeichen 
überdeckt wird. Probieren Sie doch einfach einmal aus, welche 
Zeichenfarbe den besten Kontrast zu dem Sprite bildet. Sie sehen 
nun, daß die Schrift über dem Sprite liegt. Tatsächlich ist es 
so, dan Sie das Sprite in eine andere Ebene gebracht haben, 
nämlich unter den Hintergrund. Gehen Sie in eine andere frei 
Zeile und schreiben Sie: 


POKE V+27,0 


Nun schiebt sich das Sprite wieder vor den Text. Das Register für 
die Hintergrund-Sprite Priorität, ist also so aufgebaut: 


Byte: b7 b& b5° b4 b3 b2 bi bo 
Prior.: 7 & 5 4 3 2 1 o 


Mit diesem Register, können Sie so die Priorität jedes Sprites 
beliebig verändern. Wenn das entsprechende Bit nicht gesetzt, 
also O ist, bedeutet das, daf das Sprite vor dem Hintergrund 
steht. Ein gesetztes Bit bedeutet demnach, daß das Sprite hinter 
dem Hintergrund steht. Durch unterschiedliches setzen und löschen 
der Bits, besteht die Möglichkeit, mehrere Sprites übereinander 


zı 


zu legen, und trotzdem deutlich zwischen Vorder- und Hintergrund 
unterscheiden zu können. 


Wie wir eben schon erwähnten, läßt sich durch diese Möglichkeit 


des Commodore 64, leicht eine dreidimensionale Darstellung 
erreichen. 


KOLLISION: SPRITE - SPRITE 


Zu dem übereinanderschieben von Sprites gibt es aber noch etwas 
anderes zu sagen. Es gibt ein Register, in dem eine mögliche 
Kollision zwischen verschiedenen Sprites verzeichnet wird. Dieses 
Register bleibt solange auf 0, bis entweder zwei oder mehrere 
Sprites zusamengestoßen sind, oder Sie dieses Register mit einem 
POKE Befehl zurücksetzten. Denn haben sich erst einam Sprites 
überdeckt, fand also eine Kollision statt, bleibt dieses Register 
mit den Informationen über die zusammengestoßenen solange 
geladen, bis Sie es zurücksetzen. Der Wert dieses Registers gibt 
Auskunft darüber, welche Sprites kollidiert sind. Würde bei einer 
Abfrage 


PRINT PEEK (V+30) oder KD=PEEK (V+30) 


zum Beispiel der Wert 3 erscheinen, so wissen Sie dann, daß die 
Sprites 1 und 2 zusammengestoßen sind. Die Bitstruktur des 
Registers ist im übrigen genauso, wie bei allen anderen Registern 
auch. Sie braucht daher hier nicht erläutert zu werden. Nach 
dieser Abfrage müssen Sie dann durch 


POKE V+30,0 


das Register wieder zurücksetzen. Ansonsten würden diese beiden 
Sprites weiterhin als kollidiert erkannt werden, selbst wenn 
dieses nicht der Fall sein sollte. 


KOLLISION: SPRITE - HINTERGRUND 


Genauso, wie eine Kollision von verschiedenen Sprites registriert 
wird, besteht die Möglichkeit auf eine Kollision von Sprites mit 
dem Hintergrund zu reagieren. Dazu dient das Register 31. Dieses 
Register wird gleich dem Register SO behandelt. Die einzige 
Ausnahme ist das Ergebnis der PEEK Abfrage. Das Resultat gibt nur 
Auskunft darüber, welche (r) Sprite(s) mit einem Zeichen 
kollidiert sind. Nicht aber welches Zeichen es war, und an 
welcher Position es sich befand. Um diese Informationen zu 
bekommen, müssen Sie die entsprechenden anderen Register und 


Speicherstellen abfragen. Zur Verdeutlichung noch einmal die 
Syntax (Sprache) des Befehls: 


PRINT PEEK(V+31) oder KO=PEEK (V+J31) 


Es braucht wohl nicht darauf hingewiesen zu werden, daß auch 


dieses Register nach einer Kollision wieder zurückgesetzt werden 
muß. 


VERSCHIEBEN DES BILDSCHIRMS 


Zwei weitere interessante Register sind die Register 17 und 22. 
Durch Ihre Verwendung, läßt sich der gesamte Bildschirm Schritt 
tür Schritt verschieben. Diese Verschiebung beschränkt sich auf B 
Schritte nach oben, unten, rechts, und links. Register 17 ist für 
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die Verschiebung in Y-Richtung zuständig, während Register 22 
eine Verschiebung in X-Richtung steuert. Bei der Benutzung dieser 
Einrichtung ist auf 2 Dinge zu achten: 


1.) Das Bıt 5 des entsprechenden Registers auß gesetzt 


sein - erst dann kann eine ordnungsgemäße Verschiebung 
erfolgen. 


2.) Bei einer Veränderung der Registerinhalte, darf 
nicht einfach ein neuer Wert in diese Register 
geschrieben werden, da sonst auch andere Bits verändert 
werden können. Der jeweilige POKE muß ait dena alten 
Registerinhalt odiert werden. 


Beispiel: 
Setzen von Bit 3 im Register 22: 
POKE V+22,PEEK(V+22) OR 8 


Mit dieser Anwendung, läßt sich dann der gesamte Bildschirminhalt 
um den angegebenen Wert verschieben. 


MULTICOLOR 


Der Clou bei der Programmierung der Sprites, ist die Möglichkeit 
der Definilion eines Sprites als Multicolor. Das Sprite kann dann 
aus maximal 3 Farben bestehen, hat aber eine geringere Auflösung, 
da jeweils zwei Bit als ein Punkt betrachtet werden. Daraus 
ergibt sich dann anstatt einer B x B eine 4 x 8 Matrix. In diesen 
zwei Bıts befinden sich dann die Informationen über die Farben 


und dadurch auch die Information, ob dieser Punkt gesetzt ist 
oder nicht. 


Wır wissen ja nun, daß man mit 2 Bit insgesamt 4 Inforaationen 
übermitteln kann: 00, 01, 10 und 1i. Bei einer Verwendung von 
Multicolor, haben diese 2 Bits folgende Wirkung: 


00 - Der Punkt hat die Farbe des Hintergrundes 
(man sieht also keinen Punkt) 
01 - Die Farbe wird aus dem Register 357 geholt 
(der Punkt hat dann die entsprechende Farbe) 
10 - Die Farbe wird aus dem Sprite-Farbregister geholt 
(die Farbe aus dem entsprechenden Register 39-46) 
11 - Die Farbe wird aus dem Register 38 geholt 
(der Punkt hat dann die entsprechende Farbe) 


Sie verstehen nun, daß das Sprite aus einer eigenen und zwei 
Farben, die alle Sprites gemeinsam haben, bestehen kann. Sieht 
man einaml davon ab, das ein nicht gesetzt Punkt ja auch eine 
Farbe hat, nämlich die Hintergrundfarbe. 


Vielleicht haben Sie sich schon gefragt, warum unser Hubschrauber 
etwas seltsam aussieht. Diese Frage können wir nun beantworten. 


Er ist als Multicolor-Sprite entwickelt worden. Da ein 
Multicolor-Sprite aus weniger Punkten besteht, als ein 
einfarbiges Sprite, kann man natürlich im normalen Sprite-Modus 


kein vernünftiges Bild bekommen. Als Abschluß dieses Kapitels, 
wollen wir Ihnen nun das fertige Programm, mit der Darstellung 
des Multicolor-Hubschraubers präsentieren. Es ist nicht ganz 
ungeschickt, an Hand dieses Programmes, mit der Programsierung 


73 


der Sprites zu experimentieren. Dadurch erlernen Sie die 
Handhabung der Sprites am schnellsten. 


10 REM SPRITE DEMONSTRATION - HUBSCHRAUBER 

20 V=53248: REM ANFANG VIDEO CONTROLLER 

30 POKE V+32,15: POKE V+33,14: REM HINTERGRUNDFARBEN 
40 PRINT "<CTRL>-7": REM DRÜCKEN SIE CONTROL UND 7 GLEICHZEITIG 
SO POKE V+21,3: REM ERÖFFNEN VON SPRITE O UND 1 

60 POKE V+28,3: REM SPRITE O UND 1 SIND MULTICOLOR 

70 POKE V+39,6: REM FARBE VON SPRITE O - BLAU 

BO POKE V+40,2: REM FARBE VON SPRITE I - ROT 

90 POKE V+37,14: REM MULTICOLOR-FARBE 1 - HELL BLAU 

100 POKE V+38,0: REM MULTICOLOR-FARBE 2 - SCHWARZ 

110 POKE 2040,13: REM SPRITE O AUS BEREICH 832 BIS 895 
120 POKE 2041,13: REM SPRITE 1 AUS BEREUCH 832 BIS 895 
130 FOR I=0 TO 62: REM SCHLEIFE ZUM EINLESEN DER DATEN 
140 : READ X: REM LESEN DER PUNKTEKOMBINATIONEN 

150 : POKE 832+1,X: REM SPEICHERN DER PUNKTEKOMBINATION 
160 NEXT I: REM ENDE DER SCHLEIFE 

170 POKE V+0,24: POKE V+1,50: REM POSITION VON SPRITE O 
180 POKE V+2,60: POKE V+3,50: REM POSITION VON SPRITE 1 
190 END 

1000 DATA 000,000 ,000 

1010 DATA 000,000,000 

1020 DATA 000,000,000 

1030 DATA 000,000,000 

1040 DATA 000,000,000 

1050 DATA 000,000,000 

1060 DATA 000,000,000 

1070 DATA 003,255,255 

1080 DATA 000,002,000 

1090 DATA 192,170,128 

1100 DATA 194,150,080 

1110 DATA 234,150,080 

1120 DATA 194,170,168 

1130 DATA 192,170,168 

1140 DATA 000,032,128 

1150 DATA 000,170,160 

1160 DATA 000,000,000 

1170 DATA 000,000,000 

1180 DATA 000,000,000 

1190 DATA 000,000,000 

1200 DATA 000,000,000 


Dieses Programa können Sie nun wieder als Anregung zu eigenen 
Entwicklungen benutzen. Aber denken Sie immer an eines: Jedes 


Programm ist nur so gut, wie die Vorbereitung dazu war. 
Unterschätzen Sie diesen Faktor nicht. 
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Um Ihnen bei der Erstellung von Sprites behilflich zu sein, haben 
wir ein Sprite Entwurfsblatt entwickelt. Das Entwurfsblatt finden 
Sie im ANHANG am Ende dieses Buches. 


Dieses Entwurfsblatt können Sie entweder aus dem Buch kopieren, 
oder aber auch nur als Anregung für ein eigenes Entwurfsblatt 


verwenden. Sie werden sehen, daß Sie später überhaupt nicht mehr 
ohne ein solches Entwursblatt arbeiten wollen. Denn auch hier 
gilt die Regel: überlegen Sie sich vorher, was Sie programmieren 


waollen. 
ENTWURF 


Wie benutzt man dieses Entwurfsblatt ? Als erstes machen Sie auf 
einem normalen Blatt Papier Ihre groben Entwürfe für das Sprite. 
Sie sollten dabei bedenken, ob das Sprite aus einer Farbe 
bestehen soll, oder ob es sich um ein Multicolor Sprite handelt. 
Als nächstes machen Sie auf Ihrem Entwurfsblatt den endgültigen 
Entwurf (abhängig von der Art des Sprites). Sie füllen also die 
Punkte entneder in der 8x 8 Matrix völlig aus, oder aber 
verwenden die 3 Farben, die Ihnen pro Seite zur Verfügung stehen. 


MULTICOLOR SPRITE 


Wenn Sie sich für ein Multicolor Sprite entscheiden, denken Sie 
daran, daß zwei Punkte auf dem Blatt einen Punkt auf dem 
Blldschirm darstellen. Gleichzeitig müssen Sie sich für das 
Jeweilige Register entscheiden, welches Sie verwenden wollen. 


Es ist am günstigsten, wenn Sie bei diesem Entwurf, eine andere 
Form als bei den einfarbigen Sprites wählen (darauf kommen wir 
gleich noch). Das heißt, daß Sie nicht jedenPunkt voll ausfüllen, 
sondern ın die zwei Punkte die Bitkombination eintragen, die für 
die Register zuständig ist. Wie diese Bitkombination aussieht, 
haben wie Ihnen im Abschnitt über die Multicolor Sprites bereits 
gezeigt. Wenn Sie das ganze Arbeitsblatt ausgefüllt haben, geht 
es ans Abzählen der Bits. Wir haben Ihnen durch die Angabe der 
Dezimalzahlen, diese Abzählung schon erleichtert. Wenn Sie also 
zählen, brauchen Sie nur die Zahlen zu addieren, deren Bit auf 1 
gesetzt ist. So erhalten ‚Sie in jeder Zeile 3 dezimale Zahlen, 
die Sie wie in unserem Beispielsprograma nebeneinander 
aufschreiben (die DATA Zeilen). Dieses führen Sie insgesamt 21 
mal aus, und erhalten so Ihr gesamtes Sprite in den DATA Zeilen. 


EINFARBIGE SPRITES 


Bei den einfarbigen Sprites, ist das alles etwas einfacher. Hier 
können Sie jeden Punkt auf dem Blatt als einen Punkt auf dem 
Bildschirm behandeln. So ist es hier möglich, jeden Punkt mit. 
einem Stift vollständig auszufüllen, und so einen klaren Eindruck 
über das endgültige Sprite zu erhalten. Danach übertragen Sie die 
Zahlen wieder in die DATA Zeilen. Ihr Sprite ist damit 
programmiert, und fertig für den Einsatz. 
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Kapitel 4 : EIN- AUSGABE STEUERUNG - CIA #526 


4.1 Allgemeines über den 65265 


Der Complex Interface Adapter (CIA) 6526 ist ein neuer 

Peripheriebaustein aus der #5xx-Familie. Er verfügt über: 

* 16 einzeln programmierbare Ein- Ausgabelesitungen 

* 8 oder 16 Bit Handshake somohl bei Eingabe als auch bei 
Ausgabe 

* 2 unabhängige, kaskadierbare 16 Bit Intervalltimer 

# 24 Stunden (AM/PM) Uhr mit programmierbarer Alarmzeit 

* 8 Bit Schieberegister für die serielle Ein- Ausgabe 


Das Blockschema der CIA 6526 finden Sie auf der nächsten 
Seite. Zur speziellen Belegung der CIAs im CBM64 sehen Sie 
bitte unbedinat im Kapitel 4.5 nach! 


Pinbelegung des 48-poligen Gehäuses: 

ı Masse 

2 - ? 1/0-Port Aı B Bit bidirektional 

18-17 1/0-Port Bı 8 Bit bidirektional. Die Bits 6+7 können 


zur Anzeige des Unterlaufs der beiden Timer 
programmiert werden. 

18 -PC (Port Control): nur Ausgang; signalisiert die 
Verfügbarkeit von Daten am Port B oder an beiden 
Ports. 

19 TOD(Time Of Day); nur Eingang 58/68 Hz; triggert die 
Echtzeituhr. 

208 +5V:; Betriebsspannung 

21 -IRQ(Interrupt Request); nur Ausgang; wird 8 bei 


übereinstimmung eines gesetzten Bits im ICR mit dem 
Eintreffen des zugehörigen Ereigniswes. 


22 R/W(Read/-Write); nur Eingang; B=übernahme des 
Datenbus, i=Ausgabe auf den Datenbus. 

23 -CS(Chip Select); nur Eingang; G=Datenbus gültig, 
leDatenbus hochohmig(Tri-State). 

24 -FLAG; nur Eingang; Bedeutung wie -PC. 

25 82(Systemtakt 2): nur Eingang; alle Datenbusaktionen 


finden nur bei Q92=1 statt. 

25-33 D87-DBß (Datenbus): bidirektionalı Schnittstelle zum 
Prozessor. 

S4 -RES (Reset): nur Eingang; Q=eRücksetzen der CIA in den 
Grundzustand. 

35-38 RSI-RSß (Register Select); nur Eingangı dient zur 
Auswahl eines der 16 Register der CIA; nur gültig mit 
-CS=B. 

39 SP(Serial Port); bidirektionalı dient als Ein- Ausgang 
des Schiebersgisters 

48 CNT (Count)3 bidirektionalı Ein- Ausgang des 
Schieberegistertakts oder Triggereingang für die 
Intervalltimer. 


4.2 Registerbeschreibung der CIA 


REG 8 PRA (Port Register A) 
Zugriff: READ/WRITE 


Bit 8-7 Dieses Register entspricht dem Zustand der 
Pins PAB-7 


7& 
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REG 


REG 


REG 


REG 


REG 


REG 


REG 


REG 


PRB (Port Register B) 
Zugriffı READ/WRITE 


Bit B-7 Dieses Register entspricht dem Zustand der 
Pins PB8-7 


DDRA (Datenrichtung Register A) 

Zugriff: READ/WRITE 

Bit B-7 Diese Bits bestimmen die Datenrichtung der 
korrespondierenden Datenbits des Ports A. B=Eingang, 
l=sAusgang. 


DDRB (Datenrichtung Register B) 

Zugriff: READ/WRITE 

Bit 8-7 Diese Bits bestimmen die Datenrichtung der 
entsprechenden Datenbits des Ports B. B=Eingang, 
l=Ausgang. 


TA LO (Timer A LO-Byte) 

Zugriffı READ 

Bit 8-7 Dieses Register gibt den augenblicklichen 
Zustand des niederwertigen Byte von Timer A wieder. 
Zugrif#fı WRITE 

Bit 8-7 In dieses Register wird das niederwertige 
Byte des Wertes geladen, von dem der Timer auf null 
zählen soll. 


TA HI (Timer A HI-Byte) 

Zugriffı READ 

Bit 8-7 Dieses Register gibt den augenblicklichen 
Zustand des höherwertigen Byte von Timer A wieder. 
Zugriffi WRITE 

Bit 8-7 In dieses Register wird das höherwertige 
Byte des Wertes aeladen. von dem der Timer auf null 
zählen soll. 


TB LO (Timer B LO-Byte) 
Zugriff und Belegung entspricht REG 4. 


TB HI (Timer B HI-Byte) 
Zugriff und Belegung entspricht REG 5. 


TOD 18THS (Unr 1/18 sec) 

Zugritfı READ 

Bit 8-3 Zehntelsekunden der Echtzeituhr im 
BCD-Format. 

Bit 4-7 Immer 8. 

Zugriffiı WRITE und CRB Bit 7=8 

Bit 8-3 Zehntelsekunden im BCD-Format. 

Bit 4-7 Müssen DB sein. 

Zugriffi WRITE und CRB Bit 7=1 


Bit @-5 Vorwahl der Zehntelsekunden der Alarmzeit im 
BCD-Format. 


Bit 4-7 Müssen B sein. 
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REG 9 


REG 18 


REG 11 


REG 12 


REG 15 


REG 14 


TOD SEC (Uhr sec) 

Zugriffı READ 

Bit 8-3 Einersekunden der Uhr im BCD-Format. 
Bit 4-65 Zehnersekunden der Uhr im BCD-Foraat. 
Bit 7 Immer 8. 

Weitere Zugriffsarten analog zu REG 8. 


TOD MIN (Uhr min) 

Zugriff: READ 

Bit 8-53 Einerminuten der Uhr im BCD-Format. 
Bit 4-54 Zehnerminuten der Uhr im BCD-Fornmat. 
Bit 7 Immer 8. 

Weitere Zugriffsarten analog zu REG 8. 


TOD HR tUhr Std) 
Zugriff: READ 
Bit 8-5 Einerstunden der Uhr im BCD-Format. 


Bit 4 Zehnerstunde der Uhr. 
Bit 5-4 Immer ®. 
Bit 7 B=vormittags(AM), j=snachmittags(PM). 


Weitere Zugriffsarten analog zu REG 8. 


SDR (Serial Data Register) 

Zugriffı READ/WRITE 

Bit 9-7 Aus diesem Register werden die Daten 
bitweise zum Pin SP hinausgeschoben, bzw. vom Pin 9P 
in dieses Register hineingeschoben. 


ICR (Interrupt Control Register) 
Zugriffiı READ (INT DATA) 


Bit 8 il=Unterlauf Timer A. 

Bit 1 i=Unterlauf Timer B. 

Bit 2 il=Gleichheit von Uhrzeit und gewählter 
Alarmzeit. 

Bit 3 1=SDR voll/leer (abhängig von der 
Betriebsart). 

Bit 4 i=Signal am Pin FLAG aufgetreten. 

Bit 5-6 Immer ®. 

Bit 7 übereinstimmung mindestens eines Bits von 


INT MASK und INT DATA aufgetreten. 
ACHTUNG: Beim Lesen diesen Registers werden alle Bits 
gelöscht. 
Zugriffi WRITE (INT MASK) 
Bedeutung der Bits wie oben, ausgenommen Bit 7ı 
Bit 7 i=mjedes 1-Bit setzt das korrespondierande 
Masken-Bit. Die anderen bleiben unberührt. 

QO= jedes 1-Bit löscht das korrespondierende 
Masken-Bit. Die anderen bleiben unberührt. 


CRA (Control Register A) 
Zugriffı READ/WRITE 


Bit 8 i=Timer A Start, B=Stop 

Bit ı lsUnterlauf von Timer A wird an Pin PBö sig- 
nalisiert. 

Bit 2 i1=jeder Unterlauf von Timer A kippt PBö6 in 


die jeweils andere Lage, B=jeder Unterlauf von Timer 
A erzeugt an PB& einen HI-Puls mit der Länge eines 
Bystemtaktes. 
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Bit 3 1=Timer A zählt nur einmal vom Ausgangaswert 
auf null und hält dann an, O=Timer A zahlt 
+ortlaufend vom Ausaanaswert auf null. 


Bit 4 lsunbedingtes Laden eines neuen Startwertes 
in Timer A. Dieses Bit fungiert als Strobe. Es muß 
bei jedem unbedingten Laden neu gesetzt werden. 

Bit 5 Dieses Bit bestimmt die Quelle des 
Timer-Triggers. I=Timer zählt steigende CNT-Flanken, 
@=Timer zählt Systemtaktpulse. 

Bit & 1=SP ist Eingang, B=SP ist Ausgang. 

Bit 7 lseEchtzeituhr-Trigger beträgt SOHz, 
®=Trigger beträgt d0 Hz. 


REG 15 CRB (Control Register B) 
Zugriff: READ/WRITE 
Bit B-4 Diese Bits haben die gleiche Bedeutung wie 
in REG14, allerdings bezogen auf Timer B und Pin PB7?. 
Bit 5-6 Diese Bits bestimmen die Quelle des Triggers 
für Timer B. PB2=Timer zählt Systemtakte, 18=Timer 
zählt steigende CNT-Flanken, @1=Timer BD zählt 
Unterläufe von Timer A, il=Timer B zählt Unterläufe 
von Timer A, wenn CNT=1 ist. 
Bit 7 lmsAlarm setzen, B=Uhrzeit setzen. 


4.3 E/A-Ports 


Die Ports A und B bestehen je aus einem 8-Bit Datenregister 
(PR) und einem 8-Pit Datenrichtungsregister (DDR). Wenn ein 
Bit im DDR gesetzt ist, arbeitet das korrespondierende Bit 
im PR als Ausaang. Ist ein Bit im DDR =B, ist das 
entsprechende Bit im PR als Eingang definiert. 

Während eines Lesezugriffs gibt das PR den augenblicklichen 
Zustand der entsprechenden Pins (PAB-7,PBO-7) wieder, und 
zwar sowohl für die Eingangs- als auch für die Ausgangsbitse. 
Darüberhinaus können PB& und PB7 noch Ausgangsfunktionen für 
die beiden Timer übernehmen. 

Der Datentransfer zwischen der CIA und der an PA/PB 


angeschlossenen "Außenwelt" kann durch einen Quittungs- 
betrieb erreicht werden. Hierzu dienen PC und FLAG. 
PC wird für die Dauer eines Taktes O0, wenn ein Lese- oder 


Schreibzugriff auf PRB vorangegangen ist. Dieses Signal kann 
so die Verfügbarkeit von Daten an PB, bzw. die Annahme von 
Daten von PB anzeigen. 

FLAG ist ein negativ flankengetriggerter Eingang, der z.B. 
mit PC einer anderen CIA verbunden werden könnte. Eine 
fallende Flanke an FLAG setzt auch das FLAG-Interrupt-Bit. 


Der serielle Datenpart SDR ist ein synchrones 8-Bit 
Schieberegister. CRA Bit6 bestimmt Ein- oder Ausgabemodus. 
Im Einaabemodus werden die Daten an SP mit der steigenden 
Flanke zines an CNT liegenden Signales in ein 
Schieberegister übernommen. Nach 8 CNT-Pulsen wird der 
Inhalt des Schieberegisters nach SDR gebracht und das SP-Bit 
im ICR gesetzt. 

Im Ausgabemodus fungiert Timer A als Baudrate-Generator. Die 
Daten aus SDR werden mit der halben Unterlauffrequenz von 
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Timer A nach SP hinausgeschoben. Die theoretisch höchste 
Baudrate beträgt demnach 1/4 des Systemtaktes. 

Die übertraoung beainnt, nachdem Daten ins SDR geschrieben 
wurden, vorausgesetzt Timer A läuft und befindet sich im 
Continuous-Modus (CRA Bit B=1 und Bit I=®). 

Der von Timer A abgeleitete Takt erscheint an CNT. Die Daten 
aus SDR werden in das Schieberegister geladen und dann mit 
jeder fallenden Flanke an CNT aus SP hinausgeschoben,. 

Nach 8 CNT-Pulsen wird der SP-Interrupt erzeugt. Wird jedoch 
SDR vor diesem Ereignis mit neuen Daten geladen, so werden 
diese nun automatisch ins Schiebereqister oaeladen und 
hinausgeschoben. In diesem Falle erscheint kein Interrupt. 
Die Daten aus SDR werden mit dem höchstwertigen Bit voran 
hinausgeschoben. Eingehende Daten sollten dasselbe Format 
aufweisen. 


4.4 Timer 


Jeder der beiden Intervalltimer besteht aus einem 16-Bit 


Zähler (read only) und einem 16-Bit Zwischenspeicher (write 
only). 
Daten. die in den Timer geschrieben werden, landen im 


Zwischenspeicher, während die Lesedaten den auaenblicklichen 
Stand des Zählers wiedergeben. 

Die beiden Timer können sowohl unabhängig voneinander als 
auch im Zusammenhang benutzt werden. Die verschiedenen 
Betriebsärten erlauben das Erzeugen langer 
Zeitverzögerungen, variable Pulslängen und Impulsketten. Bei 
Benutzung des CNT-Einaangs können die Timer externe Impulse 
zahlen oder Frequenzen messen. 

Jeder Timer hat ein ihm zugeordnetes Steuerreaister 
(CRA/CRB), welches die folgenden Funktionen erlaubt: 


START/STOP (Bit ®) 
Dieses Bit läßt den Timer jederzeit starten oder anhalten. 


PB ON/OFF (Bit 1) 

Hiermit wird der Timer-Unterlauf nach PB geleitet (PBb für 
Timer A, PB7 für Timer B). Diese Funktion hat Vorrana vor 
der in DDRB festgelegten Datenrichtung. 


TOGGLE/PULSE 
Mit diesem Bit wird die Art des an PB erscheinenden 
Unterlaufpulses bestimmt. Entweder wird PB bei jedem 


Unterlauf in die jeweils andere Lage gekippt, oder es wird 
ein positiver Puls mit der Dauer eines Taktes erzeugt. 


ONE-SHOT/CONTINUOUS (Bit 3 

Im One-Shot-Betrieb zählt der Timer vom Zwischenspeicherwert 
nach null, setzt das IRC-Bit, lädt den Zähler erneut mit dem 
Zwischenspeicherwert und hält dann an. Im Continuous-Modus 
läuft der oben beschriebene Vorgang zyklisch ab. 


FORCE LOAD (Bit 4) 


Dieses Bit erlaubt den Timer jederzeit zu laden, 
aleichgültig ob er aerade läuft oder nicht. 
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INPUT MODE (Bit 5 CRA, Bit 5-6 CRB) 
Diese Bits erlauben die Wahl des Taktes, mit dem der Timer 


heruntergezählt wird. Timer A kann entweder mit dem 
Systemtakt oder mit einem auf CNT gegebenen Takt versorgt 
werden. Timer B kann darüberhinaus noch mit den 


Unterlauf-Pulsen von Timer A gespeist werden, entweder 
unbedingt oder in Abhängigkeit von CNT=i. 


4.5 Echtzeituhr 


Die Echtzeituhr (TOD) ist eine 24-Stunden-Uhr (AM/PM) mit 
einer Auflösung von 1/1Bsec. 

Sie besteht aus vier Registern: 1/1Bsec, sec, min, Std. Das 
AM/PM-Bit ist das höchstwertiae des Stundenregisters. 

Jedes Register ist im BCD-Format organisiert. sodaß die 
aelesenen Werte ohne aroße Rechenoperationen benutzt werden 
können. 

Als Takt dient ein 58/60 Hz2-Signal (programmierbar. CRA Bit 
7”) am Pin TOD. 

Außerdem gibt es noch ein Alarm-Register, mit welchem man zu 
jeder gewünschten Zeit einen Interrupt erzeugen kann. Das 
Alarmregister belegt dieselbe Adresse wie das TOD-Register. 
Deshalb wird der Zugriff mit CRB Bit 7 gesteuert. Das 
Alarmregister ist write only. Jeder Lesezugriff gibt den 
Stand des TOD-Registers wieder, unabhängig von CRB Bit 7. 

Um die Uhrzeit korrekt setzen und lesen zu können, muß eine 
bestimmte Reihenfolge eingehalten werdenı 

Wenn das Stundenregister beschrieben wird, hält die Uhr 
automatisch an. Erst wenn ein Schreibzugriff auf das 
1/18dsec-Register erfolgt ist, läuft die Uhr weiter. 
Hierdurch startet die Uhr tatsächlich zur gewünschten Zeit. 
Da während des Lesens der vollständigen Uhrzeit ein übertrag 
in ein bereits gelesenes Register auftreten kann, wird beim 
Lesen des Stundenregisters die gesamte Uhrzeit in einem 
Zwischenspeicher gepuffert. Der Zwischenspeicher wird erst 
wieder freigegeben, wenn die 1/1Qsec gelesen wurden. 

Soll nur ein Register gelesen werden, s0 kann dies 
selbstverständlich auch 'en passant‘ geschehen; sollte es 
sich bei diesem Register jedoch um das Stundenregister 
handeln, so muß anschiießend das 1/1Bsec-Register gelesen 
werden, um den Zwischenspeicher wieder Freizugeben. 


4.5.1 Mit einem Trick die richtige Zeit 


Die Lanozeitgenauigkeit der vom Betriebssystem versorgten 
Uhr TIs läßt svstembedingt zu wünschen übrig. 

Es ist mit einem maximalen Fehler von 1/29td. pro Tag zu 
rechnen. 

Für diejenigen, die auf eine genaue Uhrzeit Wert legen, 
bietet sich die in den CIAs enthaltene Echtzeituhr an. 

Diese erhält ihren Takt aus der Netzfrequenz, welche eine 
hervorragende Langzeitkonstanz aufweist. 

Um Ihnen die Handhabung der Echtzeituhr zu erleichtern, 
haben wir zwei kleine Basicprogramme ausgearbeitet. 
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Das eine dient zum Stellen der Uhr. das andere zum Auslesen. 
Hier nun zunächst das Programm zum Stellen. Der Wert für 
1/1Bsec wird hierbei immer auf 8 gesetzt. 


18 C=»=S56532Bı REM Basisadr. der Uhr in CIA 1 
28 REM C=564584 für Uhr in CIA 2 

39 POKE C+7,.PEEK{C+7)AND127 

SS POKE C+6.PEEK(C+6)0OR128 

48 INPUT"ZEIT IM FORMAT HHMMSS EINGEBEN" AS 
so IF LEN(A$S)<>6 THEN 48 

69 HuVAL (LEFTS(AS,2)) 

78 M=VAL(MID$(A$,S.2)) 

88 S=VAL(RIGHTS(A$,2)) 

98 IF H>23 THEN 48 

188 IF H>11 THEN HeH+&B 

11B POKE C+S,16*INT(H/1B) +H-INT(CH/10)*10 
128 IF M>59 THEN 48 

138 POKE C+2,16*INT(M/1B8)+M-INT(M/10)*=18 
148 IF S>597 THEN 48 

158 POKE C+1,16*INT (S/18)+S-INT(S/10)*10 
1688 POKE C.d 


Das Lesen der Uhrzeit ermöglicht folgendes Programmı 


18 Ce»565328ı REM Basisadr. der Uhr in CIA 1 

20 PRINT "(shft/clr)"ıREM C=56584 für Uhr in CIA 2 
38 H=PEEK (C+S3) ı M=PEEK (C+2) ı S=PEEK (C+1) ı TaPEEK (C) 

49 FLei 

58 IF H>32 THEN H=H-1281FL=8 

68 H=INT(H/16)#18+H-INTCH/16) *1610N FL GOTO 88 

65 IF H=12 THEN 85 

78 H=H+12 

80 IF H=12 THEN H=8 

85 M=INT(M/16)#1B+M-INT(M/16) #16 

98 S=INT(S/16)*«1B+5-INT(S/16) #16 

188 TS=STR$(T) 

118 H$=STRS(H)ı IF LEN(CH$)=2 THEN Hs=" B"+RIGHTS (HS, 1) 
128 M$=STR$(M): IF LEN(M£)=2 THEN Me" 8"+RIGHTS(MS,1) 
138 SS=STR$(S): IF LEN(SS)=2 THEN Ss=" B"+RIGHTS(SS,1) 
140 PRINT "(home)"j 

158 PRINT RIGHTS (H$.2) ": "RIGHTS(MS,2) "ı "RIGHTS (58.2) "18" 
168 PRINT RIGHT$(TS,1) 

178 GOTO 38 


Nach Drücken von STOP/RESTORE müssen Sie die Uhrzeit wieder 
neu setzen, da das Betriebssystem alle Register auf den 
Ausgangswert setzt. Davon ist leider auch das Bit #für die 
S5B/6@HzZ-Auswahl betroffen. 

Ihre Uhr würde stark zurüchbleiben. 


4.6 Die ClAs im CBM&4 


Wenn Sie die CIAs im CBM64 für eigene Zwecke nutzen wollen, 
beachten Sie bitte, dan ihnen im Rechner bestimmte Aufgaben 
zugeordnet sind. Insbesondere gilt das für die Verwendung 
von Interrupts. aufgrund derer das Betriebssystem bestimmte 
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Routinen durchläuft. Ändern Sie also möglichst nie die Maske 


im ICR. 


Hier nun also die im CBM&4 getroffene Zuordnung der CIAsı 


CIA i 


REG ® 


REG I 


REG 13 


cIA2 


REG BD 


REG I 


REG 13 


Basisadresse $DCO8 (54320) 


(PRA) 
Bit 0-7 Im normalen Betrieb wird hier die 
Reihenauswahl der Tastaturmatrix getroffen. 


Allerdings sind einige Bits mit dem Controlport 1 
außen am Rechner verbunden. Dieser dient zum Anschluß 
von Jovsticks oder Paddies: 

Bit 8-4 Jovstick B. Reihenfolge: oben, unten. links. 
rechts. Taste 

Bit 4-7 Auswahl Paddle-Set A/B. Es darf nur eines 
der beiden Bits =1 sein, 


(PRB) 
Bit 8-7 Im normalen Betrieb erfolgt hier die 


Spaltenruckmeldung der Tastaturmatrix, falls eine 
Taste gedrückt war. 


Bit D-4 Dieselbe Funktion wie REG ®, allerdings für 
Controlport 2 (Joystick 1). 


(ICR) 
Bit 4 Eingabedaten vom Kassettenport 


Basisadresse $DD90 (56576) 


{PRA) 


Bit B-ı VA 14-15 (hochstwertige Adressbits des 
Videoram). 

Bit 2 TXD (nur in Verbindung mit einer 
RSZ3S2-Cartridae, sonst frei). 


Bit 3 ATN (Ausgang serieller Bus) 
Bit 4 CLOCK (Ausaana ser. Bus) 
Bit 5 DATA (Ausgang ser. Bus) 
Bit & CLOCK (Eingang ser. Bus) 
Bit 7 DATA (Eingang ser. Bus) 
(PRB) 


Bit 08-7 Gewöhnlich frei. Bei Aufstecken einer 
RS232-Cartridge erhalten sie jedoch die folgende 
Bedeutung: 


Bit ® RXD (Receive Data) 

Bit I RTS (Request To Send) 

Bit 2 DTR (Data Terminal Ready) 

Bit 3 RI «Ring Indicator) 

Bit 4 DCD (Data Carrier Detect) 

Bit 6 CTS (Clear To Send) 

Bit 7 DSR (Data Set Ready) 

(ICR) 

Bit 4 RXD (nur bei RS2S2-Betrieb, sonst frei). 
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4.7 Die Verwendung von Joysticks 


Zur Benutzung von Joysticks muß man wissen, daß sie 
dieselben CIA-Bits belegen, die auch zur Abfrage der 
Tastatur im normalen Betri=sb benötigt werden. 

Um dennoch mit den Joysticks arbeiten zu können, muß die 
Tastaturabfrage solange außer Gefecht gesetzt werden. Dies 
kann nur innerhalb eines Programmes erfolgen, welches die 
Tastatur nicht benutzt, also keinen INPUT oder dergleichen 
beinhaltet. 

Das folgende kleine Programm zeigt die Joystick-Funktionen 
zuverlässig an: 


10 poke56322.224 

208 j=peek (56328) 

39 if (jandi)=Othen?"oben" 
48 it (jand2)=Bthen?"unten" 
59 if (jand4) =Othen?"links" 
68 if (jandd)=Bthen?"rechts" 
78 if (jand16) =0then?"knopf" 
88 aoto28 


Dieses Programm erwartet den Joystick an Control-Port 2. 
Wird der Joystick an Control-Port 1 betrieben, muß die 
Adresse in Zeile 20 auf 56321 geändert werden. 

Aus obigem Programm rettet Sie nur STOP/RESTORE. Die letzte 
Zeile in einem "seriösen" Programm sollte sein: 

100 poke36322,255 

Hıermit wird die Tastatur wieder entriegelt. Sie können 
natürlıch auch diese Zeile vor jede Tastatur-Aktion setzen, 
wenn Ihr Programm sowohl die Tastatur als auch die Joysticks 
benötigt. Allerdings muß dann vor Jeder Joystick-Abfrage ein 
Befehl wie in Zeile ID stehen. 
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Kapıtel 5 : BASIC EINMAL ANDERS GESEHEN 
5.1 So arbeitet der BASIC-Interpreter 


Der Commodore 64 bıetet auf ROM einen komfortablen 
BASIC-Interpreter, der auf dem seinerzeit von MICROSOFT 
(MICROSOFT BASIC) fur den Commodore PET 2001 entwickeltem 
BASIC-Interpreter aufbaut. Das BASIC tragt dıe Versionsnummer 
2.0 und entspricht damit von dem Funktionen her der 3000er 
Serie von Commodore. 

Zuerst soll eimmal kurz auf die Arbeitsweise des Interpreters 
eingegangen werden. 


Wenn Sie eine Programmzeile eıngeben, so pruft der 
Interpreter, ob BASIC-Befehlsworte ın der Ieile vorkommen. 
Erkennt er ein Befehlswort, so wandelt er das Wort in ein 
Byte um, den Interpreterkcde, auch ‘Token’ genannt. Danach 
wird die Zeile aufgrund Ihrer Zeıilennummer an der richtigen 
Stelle in das Programm eıngefügt. Bei der Programmausführung 
erkennt er einen Befehl nun an diesem Interpreterkade. In 
diesem Ein-Byte-Kode ıst das höchstwertige Bit (Bit 7) immer 
gesetzt (der kert ist also größer als 127). Aufgrund dieses 
Kodes ermittelt er dann aus einer Tabelle die Adresse der 
Routine, die den Befenl als Unterprogramm ausführt. Dann wird 
in einer Schleife der nachste Befehl geholt und ausgeführt. 
Die Adressen der Befehle stehen in Kapitel 7, die Routinen 
selbst sind ım Kapıtel B ausführlich beschrieben. 


Wenn Sie nun eigene Funktionen und Routinen verwenden wollen, 
müssen Sie zuerst etwas über die Datenspeicherung des Inter- 
preters wissen. Vom BASIC werden drei Datentypen unter- 
schieden: Reelle Zahlen, ganze Zahlen und Strings. 

Reelle Zahlen liegen im Bereich von +/- 1E-39 bis +/- 1E38. 
Integerzahlen konnen nur ganzzahlıge Werte von -32768 bis 
32767 annehmen. Strings sind Zeichenketten mit einer Länge 
von O0 bis 255 Zeichen. 


Wie werden Variablen nun gespeichert ? 

Jeder Variableneintrag belegt sieben Byte; dıe ersten beiden 
Bytes sind der Namen (ASCII-Kode), und die nächsten fünf Byte 
geben den Wert an. Beı reellen Zahlen ıst das erste Byte der 
Erponent, und die nachsten 4 Byte stellen die Mantisse dar 
(halblogarithmische Darstellung). Bei Integerzahlen werden 
nur zwei Byte benutzt, und zwar high und low Byte der 16-Bit 
Bınärdarstellung. Beı Strings stent im ersten Byte dıe Länge 
des Strings (0 bis 255), und die nächsten beiden Byte sind 
die Adresse des Strings. 


Zur Unterscheidung der Variablentypen wird bei Integer- 
variablen ım ersten und zweiten Buchstaben des Namens das 
höchste Bit gesetzt. Bei Strings ist das höchste Bit des 
zweiten Zeichens gesetzt. 


Die Variablentabelle im RAM begınnt ummittelbar nach dem 
BASIC-Programm. Ein Zeiger in der Zeropage gibt die Adresse 
an (82D/$2ZE, AS/Ab). 


Wenn Sıe folgende Wertzuweiısungen machen 
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A = 10.3 
B4 = 23 
C$ = "Commodore 654" 
und dann die Speicherinhalte mit dem Monitor ansehen, ergibt 


sich folgendes Bild: 


002D 03 08 Variablentabelle begint bei $#0805 
0803 41 00 84 24 CC CC CD Variable A, Fließkommauert 10.3 
080A C2 BO FF EI 00 00 00 Variable B%, Binärwert -23 
0810 45 BO OC F4 9F CO 00 Variable C$, Länge 12, 
Adresse s9FF4 


5.2 Von der Eingabe bis zur Verarbeitung 


Wie lassen sich nun Variablen oder Ausdrücke von BASIC aus an 
Maschinenprogramme übergeben ? 


Dazu gibt es im BASIC-Interpreter eıne komfortable Routıne, 
die einen beliebigen Ausdruck holt und auswertet. Sämtliche 
Arithmetik geschieht mit reellen Zahlen. Kommen Integerzahlen 
vor, so werden diese erst ins Fliefikommaformat unmgewandelt. 


Diese Routine mit Namen FRMEVL (Formelauswertung) hat die 
Adresse SADIE und wertet sowohl numerısche als auch 
Stringparameter aus. Zur Unterscheidung wird ein Typflag 
gesetzt (Adresse #OD, 13-800 bedeutet numerisch, $FF 
bedeutet String). Numerische Daten werden ım Fließkommaakku 
1, kurz FAC genannt, abgelegt. Der FAC steht ab Adresse #61 
(97) in der Zeropage. Zur arithmetıschen Verknüpfung, z.B. 
Additıon, steht eın zweiter Flıeßkommaakku zur Verfügung, 
kurz ARG genannt (ab Adresse #69 dezımal 105). Das Ergebnis 
nach dem Aufruf einer solchen Routine steht grundsätzlıch im 
FAC. Auch wird bei Funktionsaufrufen das Argument in’ FAC 
ubergeben und das Ergebnis dort wieder abgeholt. Wurde ein 
Strıngausdruck ausgewertet, so steht in £64/865 (100/101) ein 
Zeiger auf den sogenannten Stringdescriptor, der wiederum 
Länge und Adresse des Strings enthält. Der Aufruf der Routine 
3E475 holt die Stringlänge in den Akku und die Adresse ins X- 
(low Byte} und Y-Register (high Byte). 


Sehen wir uns jetzt einige nutzliche Routinen des 
BASIC-Interpreters an, die arıthmetische Aufgaben ausführen. 


Adresse Funktion 

$3BB53 Minus FAC = ARG - FAC 
$BBUA Plus FAC = ARG + FAC 
*BAZB Multiplikation FAC = ARG * FAC 
$BB12 Division FAC = ARG / FAC 
$BF7B Potenzierung FAC = ARG hach FAC 


Dıe Adressen der weiteren Routinen sowie der Belegung der 
Zero-Page durch den Interpreter und das Betriebssystem finden 


Sie in Kapitel 7. 
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5.3 Machen Sıe MEHR aus Ihrem BASIC 
5.5.1 Wie ermeitere ich BASIC ? 


Eigene Maschinenroutinen lassen sich außer uber dıe USR- und 
SYS-Funktion noch eleganter ins BASIC einbinden. Sehen wir 
uns dazu die Stelle im Interpreter an, die ein BASIC- 
Statement holt und ausfuhrt. Hier ıst der entsprechende 
Auszug aus dem ROM-Listing: 


ATEI &C OB 03 JMP (80308): zeigt normalerweise auf SA7EA 
ATE4 20 73 00 JSR 80073 nächstes Zeichen aus 
BASIC-Text holen 

Statement ausführen 

zurück zur Interpreterschleife 


ATE7 20 A7 ED JSR sATED 
ATEA AC AE A7 JUMP $SATAE 


An dıeser Stelle können wır nun eingreifen. In Adresse 
#0308/$0309 steht ein Zeiger, den wir auf eine eigene Routine 
zur Kodeprüfung setzen konnen. Eine übliche Methode ist es, 
eıgene Befehlserweiterungen durch ein vorangestelltes Sonder- 


zeicnen, z.B. ein Ausrufungszeichen, zu kennzeichnen, so 
könnte 

100 'FRINT 
eine eigene modıfizierte Druckroutine aufrufen. Unsere 


Routine pruft dann auf das Ausrufungszeichen. Wird es gefun- 
den, kann in die eıgene Routine verzweigt werden, ansonsten 
wırd die Routine des BASIC-Interpreters aufgerufen. Ein ent- 
sprechender Programmausschnitt könnte so aussehen: 


DECODE JSR 20073 CHRGET, nächstes Zeichen 


cmHP or" mit Sonderzeichen vergleichen 
BEO FOUND Verzweigung zur eigenen Roautıne 
JSR 20079 CHRGOT, Flags wieder setzen 

JMP  SzATET 


Befehl des Interpreters ausführen 
CHRGET, nächstes Zeichen holen 
eigene Befehle ausführen 

zurück zur Interpreterschleife 


FOUND JSR 80075 
JSR COMMAND 
JMP X SATAE 


Der Zeiger in 30308/80309 muß beım Initialisieren der 
Befehlserweiterung auf die Adresse DECODE des obigen 
Beispielprogramms gesetzt werden. 

Will man mehrere Befehle implementieren, so kann man noch 
eine Routine zur Unterscheidung der Befehlsworte einbauen, 
die die verschiedenen Befehlserweiterungen selektiert. 


5.3.2. HARDCOPY - RENEW - PRINT USIUNG 


Im folgenden finden Sie einige Anregungen zur Verwirklichung 
eigener Routinen. 


Beispiel 1 - Hardcopy-Funktion 


Dıe Hardcopy-Funktion hat den Zweck, den Bildschirminnhalt auf 
den Drucker (Gerätenummer 4) zu kopieren und kann direkt 


mit 
SYS 9#4096 aufgerufen werden. 


a 
ı 
E 
[3 
o 
n 
” 
un 
- 
o 


“ ı beratenusrer gas Druchers 
©: ® .69i5:he rılerumrer 
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Es tolgt eın Ladeprogramm in BASIC 


108 POKE 56,9*16 : CLR : FOR I = 36864 TO 36957 

118 READ X : POKE 1,X : S=S+X : NEXT 

128 DATA 169, 4,133,186,169,126,133,184,169, 8,160, & 
138 DATA 133,113,132,114,133,183,133,185, 32,192,255,166 
148 DATA 184, 22,201,255,162, 25,169, 13, 32,218,255, 32 
15D DATA 225,255,249, 46,168, 8,177,113,133,103, 41, 63 
160 DATA 6,1083, 36,105, 16, 2, 9,128,112, 2, 9, 64 
170 DATA 32,218,255,2@08,192, 40,208,238,152, 24,1®1,113 
180 DATA 133,113,144, 2,230,114,292,298,205,169, 13, 32 
190 DATA 218,255, 32,204,255,169,126, 76,195,255 

2@a0 IF S x> 12023 THEN PRINT "FEHLER IN DATAS !!" : END 
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210 PRINT "OK !:* 
Beispiel 2 - RE-NEW 


Das folgende Programm kann dann nützlich sein, wenn man 
versehentlich ein Programa mit NEW gelöscht hat. Das Programm 
tindet das Ende des gelöschten Programm und setzt die 
BASIC-Zeiger wieder auf den alten Wert, sofern danach keine 
neuen Programmzeilen eingegeben oder Varıablen benutzt 


wurden. Die Startadresse ist hier 12#4096+15*256 gleich 
52992. 


; RE-NEN FUNKTION 
5 HOLT GELOSCHTES PROGRAMM WIEDER ZURUCK 


CF00 AS 2B ıTa PRSSTRT ; BASIC-Progrannstart 
CFO2 A4 2C LDY PRESTRT + I 

CF04 85 22 STA TEMP » als Zeiger speichern 
CFO6 84 23 sTY TEMP + 1 

CFoB AO 03 LdY a3 

CFOA CB NULL INnY 

CFOB BI 22 LDA :TEMP),Y : sucht Ende der ersten Zeıle 
CFOD DO FB BNE NULL ; (Nullbyte) 

CFOF CB INnY 

CF1O 98 TYa 

EFi1i 18 cıLc 

CFi2 65 22 ADC TEMP ; Otfset addıeren 
CF14 AO 00 LDY 80 

CFi6 91 2B STR LPRESTRTI,Y ; als Zeiger auf nachste 
CFi8 A5 23 LDA TErP + 1 

CFIA 69 00 ADC 90 ; Zeile speichern 
CFIC CB INY 

cF1D 91 2B STA (PRESTRTI,Y 

CFIF 88 DEY s enthalt jetzt null 
CF20 A2 03 TO La 8 

CF22 Es 22 TDREIO Inc TEMP 

CF24 00 02 EBENE +4 ; Prograsaende gleich 
tF2& E& 23 INC TEMP + 1; dreı Nullbytes suchen 
CF28 Bi 22 LDA TEMPI,Y 

CF2Aa DO FA GNE TO 

CF2C CA bEX 

CF20 00 F3 ENE TDRE!O 

CF2F AS 22 LDA TEMP 

CF31 69 02 ADC 02 

cf33 85 2D STA PRGEND 

CF35 AS 23 LDA TEMP + 1 ; Zeıger auf Prograasende setzen 
CFS7 89 00 ADC 80 

CF39 85 2E STA PREEND + I 

CF3B AC 63 Ab JnP CLR ; ELR und ready. 


Hier wieder ein Ladeprogramm in BASIC. Dieses Programan muß 
natürlich zuerst geladen und gestartet werden, ehe man es auf 
(anschließend geladene oder geschriebene) versehentlich 
gelöschte BASIC-Programme anwenden kann. 


100 FOR I = 52992 TO 53053 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 165, 43,164, 44,133, 34,132, 35,160, 3,200,177 
130 DATA 34,208,251,200,152, 24,101, 34,160, 0,145, 43 
140 DATA 165, 35,105, 0,200,145, 43,136,162, 3,230, 34 
150 DATA 208, 2,230, 35,177, 34,208,244,202,208,243,165 
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160 DATA 34,105, 2,133, 45,165, 35,105, 0,133, 46, 76 
170 DATA 99,166 

180 IF 5 <> 7000 THEN PRINT "FEHLER IN DATAS !'" : END 
190 PRINT "OK !" 


Beispiel 3 - PRINT USING 


Eine sehr nützliche Routine, die dem Interpreter des 
Commodore 64 #ehlt, ist die formatierte Ausgabe von Zahlen, 
oft mit °PRINT USING’ bezeichnet. Die Routine arbeitet nach 
folgendem Konzept (siehe Adresse $SC900 - SCIOC): Zuerst wird 
ein numerischen Ausdruck in den Fließkommaakku geholt und 
dann mit der Routine des BASIC-Interpreters in einen 
ASCII-String aus Ziffern umgewandelt, der ab Adresse $100 
abgelegt wird. Hier greift die Routine nun ein und führt die 
Formatierung durch. Anschließend wird der formatierte String 
dann ausgegeben. 

Der Aufruf über eine SYS-Funktion hat folgendes Formatı 


SYS (AD X 


Dabei ist AD die Startadresse der Routine und X die 
auszudruckende Variable oder ein positiver numerischer 
Ausdruck. Die Parameter für den Ausdruck werden mit POKEs 
gesetzt: 


POKE 51612, X 0 = ganze Zahl, 1 = Zahl mit Dezimalpunkt 
FOKE 51615, L 0 - 10, Gesamtlänge - 1 

POKE 51614, N Anzahl der Stellen nach dem Dezimalpunkt 
POKE 51615, ASC(" ") Füllzeichen vor der Zahl 

POKE 51549, ASC(" ") Führendes Zeichen vor der Zahl 


Die vorgewählten Werte sind: Dezimalzahl, Länge 10 (9+1), 2 
Dezimalstellen, Leerzeichen als führendes Zeichen und als 
Füller. 
SYS (51456) 100 #ührt zu folgendem Ausdruck: 
100.00 


Mit POKE S51614,3 : POKE 51615,ASC("#") :POKE 51549,ASCC"$") 
sieht die Ausgabe des obigen Beispiels so aus: 


=#2100.000 


Wollen Sie die Ausgabe auch auf dem Drucker haben, müssen Sie 
den CMD-Modus benutzen: 


OFEN 1,4 : CMD i 
SYS (51456) X 
FRINT# 1 = CLOSE 1 


; PRINT USING 
C900 20 BA AD JSR FRKNUM ; nunerischen Ausdruck holen 
C903 20 DD BD JSR ASCII ; nach ASCII uawandeln 
C906 20 0D C9 JSR USING 
C#09 20 1E AB JSR OUT ; String ausgeben 
C90C 60 RTS 
C90D AI 45 USING LDA B"E* 
C90oF 20 BE C9 JSR CHECK ; prüft auf Exponentialdarstellung 
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c912 80 59 BES SETPTR 


C915 AD 9 C9 LDA DECINT ; Flag fur deziaal oder ganze Zahl 
c917 FG 59 BEQ INTEGER 

c919 AD 02 01 LDA 8102 

CHIC DO 08 BNE LI 

cHIE AC 9D CH LDY LENGAT : Gesaatlange - I 
c921 AF 30 LDA 8*0* 

(923 99 02 01 L2 STA s102,Y ; Pufter aıt Nullen #ullen 
C926& 85 DEY 

6927 Do fA B8NE L2 

929 A9 2E Lı LDda 8°," 

C92B 20 BE C9 3SR CHECK 

C92E AB TaY 

c9?2F 90 02 BCC a4 

c931 AO 30 LDdr #*0” 

c933 AF 00 Lda 80 

c035 20 BE C? JSR CHECK 

c938 98 TYa 

6939 9D 00 01 STA $100,X 

C93C A9 2E LDA 0°." 

c93E 20 BE C9 JSR CHECK 

c9a1 AC 9E C9 Ldr DECLEN ; Anzahl der Dezıaalstellen 
c944 E8 L3 INX 

c945 88 DEY 

C946 DO FL BNE LI 

946 EC 9D C9 18 EPX LENGHT 

C9&B BO 20 BCS SETPTR 

C9aD AC 9D C9 ıLDY LENGHT 

6950 49 00 LDA 00 

6952 99 01 01 STA s101,Y 

C955 BD 00 01 Lb LDA 8100,X 

958 C9 20 cnp 0“ ; führendes Zeichen 
C95A DO 02 BNE 15 

c93C AI 20 LDa 0er * 

C95E 99 00 01 LS STA 8100,Y 

[961 CA DEX 

C962 10 06 BPL L& 

(964 AD 9F C9 LDA FILLER 

C967 88 DEY 

C968 10 F& BPL 15 

C9bA 88 14 Der 

C#6B 10 EB BPL Lb 

C9&D AI 00 SETPTR LDA #0 ; leıger auf Pufter setzen 
CHF AO 01 LDY a1 

C971 60 RTS 

6972 49 00 INTEGER LDA #0 

974 20 8E [9 JSR CHECK 

0977 90 FA BCC SETPTR 

1979 8A TXA 

C97A AB TAY 

c97B AD 02 01 LDA 8102 

C97E FO 09 BEQ L7 

C980 A9 2E LDA #°.," 

c982 20 BE [9 J6R CHECK 

C985 90 02 Bcc 17 

c907 EA TXa 

C988 AB TAY 

C987 98 L7 IYA 

C98A AA TAX 

C98B CA DEX 

c9aC 10 BA BPFL LB 
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C9BE A2 00 CHECK LDI a0 


6990 DD 00 01 19 CHP 8100,X 

6995 FO 08 BEO LIO 

c995 E8 INS 

C996 EO CC cpı 2 

C998 DN Fb BNE L9 

c9s9A 18 cıLc 

c998 60 L10 RTS 

c99c 01 DECINT .BYT I ; dezıeal 

c99D 9 LENGHT .BYT 9 ; Länge 9 

C99E 02 DECLEN .BYT 2 ; Anzahl der Dezıaalstellen 
C9SF 29 FILLER SBYTR OR ; Fullzeiıchen 

TIAO LEADING = L5 - 1; #uhrendes leichen 


Hier das entsprechende Ladeprogramm in BASIC. 


100 FOR I = 51456 TO 51615 
110 READ X : POKE 1,X : 5=S5+X : NEXT 

120 DATA 32,138,173, 32,221,189, 32, 13,201, 32, 30,171 
150 DATA 96,169, 69, 32,142,201,176, 89,173,156,201,240 
140 DATA 89,173, 2, 1,208, 11,172,157,201,169, 48,153 
150 DATA 2, 1,136,208,250,169, 46, 32,142,201,168,144 
160 DATA 2,160, 48,169, O0, 32,142,201,152,157, 0, 1 
170 DATA 169, 46, 32,142,201,172,158,201,232,136,208,252 
180 DATA 236,157,201,176, 32,172,157,201,1&9, 0,153, 1 
190 DATA 1,189, 0, 1,201, 32,208, 2,169, 32,153, O0 
200 DATA 1,202, 16, 6&,173,159,201,136, 16,244,156, 16 
210 DATA 232,169, 0,160, 1, 96,169, 0, 32,142,201,144 
220 DATA 244,138,168,173, 2, 1,240, 9,169, 46, 32,142 
230 DATA 201,144, 2,138,168,152,170,202, 16,186,162, O0 
240 DATA 221, 0, 1,240, 6&,232,224, 12,208,246, 24, 96 
250 Data 0, 9, 2, 32 

260 IF S <> 18657 THEN PRINT "FEHLER IN DATAS '!* = END 
270 PRINT "OK !" 


5.5.3 Mathematische Routinen selbst entwickelt 


Wenn wir oft mathematische Routinen benötigen, die der 
Interpreter nicht bietet, so lohnt es sich, dafür selber ein 
Unterprogramm in Maschinensprache zu schreiben. Für Funk- 
tionen mit einem Argument bietet sich dafür die USR-Funktion 
an. Wie funktioniert nun die USR-Funktion? Sie kann genauso 
wie alle anderen Funktionsaufrufe des Interpreters, z.B. wie 
die SIN-Funktion in Ausdrücken zur Berechnung von Variablen 
oder auch in einem PRINT-Statement stehen. Damit der 
Interpreter weiß, wo die eigene Routine steht, wird ihm noch 
in zwei Speicherzellen die Startadresse der Routine 
mitgeteilt. Dies kann im BASIC mit POKE-Befehlen geschehen. 
Beim Aufruf der USR-Funktion wird der Wert des Argument» (das 
kann ein beliebiger komplizierter Ausdruck sein) im 
Fließkommakkku 1 FAC übergeben. Jetzt kann die Funktion 
berechnet werden. Wenn das Ergebris im FAC steht und RTS 
{RETURN vom Maschinenprogramm) ausgeführt wird, so wird der 
Wert wieder an BASIC übergeben. Sehen wir uns jetzt an ein 
paar Beispielen an, wie man eigene Funktionen schreibt. 
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5.5.4 SOR- „ SUM- und PROD-Funktion 


Zuerst wollen wir uns eine Routine zur Berechnung der 
Quadratwurzel schreiben. Der BASIC-Interpreter stellt eine 
solche Funktion zwar bereits zur Verfugung, unsere Rautine 
sall jedoch schneller und genauer werden, da wir nicht wie 
der Interpreter eine Potenzierung durchfuhren (die den Aufruf 
von LOG und EXP erfordert), sondern eine Iteration 
durchführen. Als Startwert nehmen wir dazu das Argument und 
halbieren den Exponent, was bereits eine gute Schatzung des 


Wurzelwertes ist. Die Iterationsvorschrift lautet x(n+)) = 
(kin) + a/n(n)) / 2, wobei a das Argument und x(n) und x (n+1) 
der alte und der neue Schätzwert sind. Durch Ausprobieren 


zeigt sich, daß sich das Ergebnis nach 4 Iterationen nicht 
mehr ändert. 


C800 20 2B BC JSR SIGN ; Vorzeichen testen 

C803 FO 34 BEQ ENDE ; Wert gleich O, fertig 

C805 10 05 BPL OK < positiv, dann in Ordnung 
C807 4C 48 B2 JMP ILL ; negativ, "illegal quantity' 
C80A 20 C7 BB 0X. JSR FACA4 ; FAC nach Akku®4 übertragen 
CBOD AS 61 LDA EXP 

C80F 38 SEC 

C810 E? 81 SBC #581 ; Exponent normalisieren 
CB12Z 08 PHP 

cB153 AA ISR A ; Exponent halbieren 

C814 18 CLC 

CB15 69 O1 ADC #1 

c817 28 PLP 

ca1ıa 90 02 BCE Si 

CB1iA 689 7F ADC ##7F ; Exponent wieder herstellen 
tCBıC 85 &1 Sı STA EXP 

CBI1E AF 04 LDA #4 ı 4 Iterationen 

C820 85 67 STA COUNT 

ce22 20 CA BB ITER JSR FACAS 3 FAC nach Akkus 

C825 A9 SC LDA #$5C 

C827 AO 00 LDY #500 ; Zeiger auf Akkus#4 

C8297 20 OF BB JER DIV ; durch FAC dividieren 

C82C A9 57 LDA #357 

CB2ZE AO 00 LDY #500 ; Zeiger auf Akku#3 

ce30 20 47 BB JSR PLUS ; zu FAC addieren 

C833 C6 61 DEC EXP ı FAC / 2 (Exponent minus 1) 
C835 C6 67 DEC COUNT ; Zähler erniedrigen 

c837 DO E9 BNE ITER ; noch eine Iteration 

C839 60 ENDE RTS ; fertig 


Bevor wir unsere neue USR-Funktion aufrufen, müssen wir dem 
Interpreter erst mitteilen, wo unsere USR-Funktion beginnt. 
Dazu wird das low-Byte der Adresse nach #311 (dezimal 785) 
und das high Byte nach #312 (786) gepoket. Für unsere 


Funktion sähe das so ausı 
POKE 785,0 : POKE 7B&, 12*1&+B 


Das folgende Ladeprogramm in BASIC enthält diese Pokes 
bereits. 


100 FOR I = 51200 TO 51257 


110 READ X : POKE I,X : S=S+X : NEXT 
120 DATA 32, 43,188,240, 32, 16, 3, 76, 72,178, 32,199 
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130 DATA 187,165, 97, 56,233,129, B, 74, 24,105, 1, 40 
140 DATA 144, 2,105,127,133, 97,169, 4,133,103, 32,202 
150 DATA 187,169, 92,160, O0, 32, 15,187,169, 87,160, O© 
160 DATA 32,103,184,198, 97,198,103,208,233, 96 

170 IF S <> 6211 THEN PRINT "FEHLER IN DATAS !'* : END 
180 POKE 785,0 : POKE 786,200 : PRINT "OK !" 


Jetzt 1äßt sich mit ? USR(A) unsere Routine aufrufen. 
Vergleicht man die Ausführungszeit unserer Routine mit der 
SQR-Routine des Interpreters, so ist unsere mit ca. 12 
Millisekunden gegenüber ca. 52 Millisekunden etwa 4 mal so 
schnell wie die des Interpreters. 


Jetzt wollen wir uns noch ein etwas komplizierteres Beispiel 
ansehen. 

Oft steht man vor der Aufgabe, eine Zahlenreihe zu addieren. 
Dies ist z.B. bei der Ermittlung des Durchschnitts oder 
anderen statistischen Berechnungen der Fall. Wir nehmen an, 
daß die Daten in einem Array (dimensionierte Variable) zur 
Verfügung stehen. 


10 DIM At1000) 

« . . Berechnung oder Einlesen der Daten 
1005=0 

110 FOR I = 0 TO 1000 3 S = S + ATI : NEXT 
120 PRINT S 


Unsera USR-Funktion soll nun die BASIC-Zeilen 100 und 110 
ersetzen, wir wollen dafür 


100 S = USR{A) 


schreiben. Der Parameter A steht dabei für den Arraynamen. 
Wie wir später sehen werden, läßt sich durch Andern zweier 
Maschinenbefehle auch das Produkt der Arrayelemente 
berechnen. 


033C 20 AD AD JSR NUMTEST ; Variable nuserisch ? 

033F Ab 2F LDI ARRTAB 

6341 AS 30 LDA ARRTAB+L ; Zeiger auf Beginn Arraytabelle 
0343 86 SF ER STX TEMP 

0345 65 60 STA TEMP+I 3; laufender Zeiger 

0347 C5 32 CHP ARREND+I 

0349 DO 04 BNE SI 

033B E4 Si CPX ARREND ; Ende der Arraytabelle ? 

0340 FO 1D BEQ NOTFOUND 

Q34F AO 00 si LDdY 80 

0351 Bi SF LDA A(TEMP),RY ; erster Buchstabe des Naaens 
0353 CB InY 

0354 C5 45 CMHP VARNAN ; mit gesuchten Nanen vergleichen 
0356 DO 06 BNE 52 ı nein, dann nächstes Array testen 
0358 AS 46 LDA VARNAM+I ; zweiter Buchstabe 

035A Di SF CaP ATEMPI,Y ; vergleichen 

035cC FO 17 BEQ FOUND ; gefunden 

o35E CB 52 INY 

035F Bi 5F LDA ATENP),Y 

0361 18 cLc 

0362 65 SF ADC TEMP ; Oftset tur nächstes Array addieren 
0364 AA TAX 


0365 CB INY 


0566 
0368 
0J6A 
056C 
O36E 
0370 
0372 
0375 
0376 
0378 
0379 
037B 
0378 
0y7E 
0380 
0382 
0384 
0385 
0387 
038A 
038C 
O38E 
0390 
0392 
0375 
0396 
0378 
939B 
039C 
03#E 
03A0 
0342 
LRTT) 
03Ab 
03AB 
O0JAA 
O3AL 
OJAE 
03B0 
05B1 
0384 
0387 
03B8 
03BA 
O93BC 
O3BE 
03C0 
0362 
05C4 
03566 
035C8 
03CA 
O3Cct 
O5CF 
0302 
0305 
03D7 
9309 
03DA 
0308 
03DD 


B1 
65 
0 
a2 
B& 
a3 
ac 
c8 
Bl 
18 
65 
85 
cB 
Bi 
65 
85 
c8 
Bi 
20 
85 
B4 
24 
30 
20 
18 
0 
20 
18 
AS 
69 
CH 
{7} 
E& 
na 
cs 
90 
ca 
0 
60 
20 
20 
18 
CH 
69 
85 
90 
Eb 
cs 
[7 
As 
[2 
Bo 
20 
20 
14 
ao 
Bi 
AA 
ca 
Bi 
na 


5f 
80 
D7 
E2 
22 
05 
45 


El2 


SF 
24 


SF 
60 
25 


5f 
I 
E12 
60 
dE 
ıF 
a2 


04 
67 


5f 
05 
Sf 
02 
69 
60 
24 
EC 
25 
EB 


D5 
oc 


ElZ 
92 
SF 
02 
60 
24 
06 
60 
25 
E4 
D5 
[12 
B4 
00 
sr 


El2 


LE 


Bi 


03 
BC 


03 
B8 
03 


NOTFOUND 


FOUND 


S5 


LOOF 


54 


READY 
INTEGER 
Sb 
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se 


INTAKK 


LDA 
ADC 
BCC 
Loox 
sıı 
LDA 
np 
INY 
LDA 
cc 
ADE 
Sta 
INY 
LDA 
ADC 
sTa 
InY 
LDA 
JSR 
STA 
SiY 
BIT 
Bri 
J5R 
cıc 
Bcc 
JSR 
cLc 
LDA 
ADC 
STA 
BeC 
INC 
LDY 
crp 
BCC 
cPr 
BCC 
RTS 
JER 
JSR 
LLC 
LDA 
ADE 
STA 
BCC 
INC 
{hp 
BCC 
LDA 
cap 
BcS 
JSR 
JSR 
JInP 
LDY 
LDA 
TAX 
INY 
LDA 
TAY 


tTEMP) ,Y 

TENP+1 

sy 

4 TAB 

#22 ji leıger aut Fehlerneldung 
© TAB 

ERROUT ; Fehleraeldung ausgeben 


tTEMPI,Y 


TENP 
STORE 


tTENP),v 
TENP+1 
STORE+L 


(TEMP),Y ; Anzahl der Indızes 


SETARR ; Zeiger auf erstes Arrayelement 
TENP 
TENP+l ; leiger nach Teap 


INTFL6G ; Integertlag testen 
INTEGER 
MEMACI : Element in FAC 


LOOP ; Sprung ın Schleife 
MEMPLUS ; Varıable plus FAC 
TEnP 
#5 ı Zeıger auf nachstes Elenent 
TENP 
54 
TENP+L 
TENP+I 
STORE 4 Ende des Arrays ? 
55 
STORE+1 
55 
i Ja, tertıg 
INTAKK ; Integervariable nach FAT 


KITOA2 ; FAC nach ARG 


TEMP 

”2 ; Zeiger auf nächstes Arrayelenent 
TENP 

7 

TENP+1 

STORE ; Ende des Arraybereichs ? 

El; 

TEnP+1 

STORE+I 

READY 

INTAKK ; Integervarıable nach FAC holen 
AKPLUS ; FAC + ARG 

Ss 

0 

tTEMPI,Y 


LTENPI,Y 


3% 


OSDE BA TXA 


O3DF AC 91 85 JMP_ INTFLOAT ; nach Flıehroana 
OSE2 41 52 52 TAB „ASC “ARRAY NOT FOUN” 

03ES 41 59 20 4E AF Ja 20 46 50 55 4E 

OIFO C& .BYTE *"D“ + 880 


100 FOR I = 828 TO 1008 

110 READ X : POKE 1,X : S=S+X : NEXT 

120 DATA 32,141,173,166, 47,165, 48,134, 93,133, 96,197 
130 DATA 50,208, 4,228, 49,240, 29,160, 0,177, 95,200 
140 DATA 197, 69,208, 6,145, 70,209, 95,240, 23,200, 177 
150 DATA 95, 24,101, 95,170,200,177, 95,101, 96,144,215 
160 DATA 162,226,134, 34,169, 3, 76, 69,164,200,177, 95 
170 DATA 24,101, 95,133, 36,200,177, 95,101, 96,133, 37 
180 DATA 200,177, 95, 32,150,177,133, 95,132, 96, 36, 14 
190 DATA 48, 31, 32,162,187, 24,144, 4, 32,103,184, 24 
200 DATA 165, 95,105, 5,133, 95,144, 2,230, 9%6,164, 9% 
210 DATA 197, 36,144,236,196, 37,144,232, 9%, 32,213, 3 
220 DATA 32, 12,188, 24,165, 95,105, 2,133, 95,144, 2 
230 DATA 230, 96,197, 36,144, 6,165, 96,197, 37,176,228 
240 DATA 32,215, SZ, 32,111,184, 76,180, 3,160, 0,177 
250 DATA 95,170,200,177, 95,168,138, 76,145,179, 65, 82 
260 DATA 82, 65, 89, 32, 78, 79, 84, 32, 70, 79, 85, 78 
270 DATA 196 

280 IF S <> 20399 THEN PRINT "FEHLER IN DATAS !!" : END 

290 POKE 785, 3#16+12 : POKE 786, 3 : PRINT "OK !" 


Das Frogramm kann sowohl Arrays mit reellen Zahlen als auch 
Integer-Arrays verarbeiten. Wird ein Array nicht gefunden, so 
wird die Fehlermeldung ‘array not found error‘ ausgegeben. 

Da die Logik zum Errechnen des Produkts der Arrayelemente 
gleich ist, kann man eine Produktfunktion erhalten, indem wir 
die Aufrufe zur Addition durch die Multiplikationsroutine 
ersetzen. 

Dazu muß ab Adresse $03798 20 28 BA stehen und ab Adresse 
$0SCF steht 20 2B BA. Von BASIC aus kann dies mit POKE 
921,40 : POKE 922, 186 : POKE 976, 43 : POKE 9777, 18& 
geschehen. 

Um unsere Routine, die diesmal im Bandpuffer liegt, benutzen 
zu können, müssen wir wieder die Startadresse poken im 
BASIC-Lader schon geschehen): 


POKE 785, 3#16+12 : POKE 786, 3 


Berechnen Sie zum Vergleich einmal die Sume mit einer 
BASIC-Schleife und dann mit unserer Routine - der Zeit- 
unterschied ist gewaltig. 


5.3.5 Umwandlung der verschiedenen Datenformate 


Sollen mehr als ein Parameter übergeben werden, so ist die 
USR-Funktion nicht mehr geeignet. Hier bietet sich eine 
erweiterte Variante des SYS-Befehls an. Normalerweise führt 
der SYS-Befehl nur das Maschinenprogramm ab dieser Adresse 
durch und übergibt keine weiteren Parameter. Die oben 
angesprochene Rautine FRMEVL liest jedoch einen folgenden 
Parameter und übergibt ihn im Fließkommakku. Durch Komma oder 
Klammern getrennt können so beliebig viele Parameter 
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übergeben werden. Zu der Routine zur Formelauswertung stehen 
noch eine Reihe weiterer Einsprungpunkte und Unterroutinen 
zur Verfügung, die z.B. Parameter in Klammer auswerten, auf 
ein nachfolgendes Komma prüfen. Auch 130t sich der 
Variablentyp - String oder numerisch - testen. Bei 
numerischen Variablen ist zusätzlich noch eine Bereichs- 
überprüfung möglich. Die wichtigsten Routinen sind unten 
zusammengestellt. Weitere Einzelheiten entnehmen Sie bitte 
wieder unserem ROM-Listing oder Kapitel &.4. 


Adresse Beschreibung 


ADBA Argument auswerten und auf numerisch prüfen 
ADBD auf numerisch prüfen 

ADBF auf String prüfen 

ADIE Argumentauswertung, beliebiger Ausdruck 
AEFI Argument in Klammern auswerten 

AEF? prüft auf Klammer zu 

AEFA prüft auf Klammer auf 

AEFD prüft auf Komma 

B79E holt Byte, (O bis 255) ın X-Register 

0075 holt nächstes Zeichen aus BASIC-Text 

Bei Bereichsüberschreitung wird "illegal quantity‘ ausgeben, 


falscher Typ ergibt 'type mismatch'. 


Die Umwandlung der verschiedenen Formate ineinander ist mit 
tolgenden Routinen möglich: 


Adresse Beschreibung 


B1BF wandelt FAC nach Integer 

B395 wandelt 16-Bit Integerzahl im A/X nach Fließkomma 
BSA2 wandelt Byte in Y nach Fließkomma 

BC9B wandelt FAC nach 16-Bit Zahl 

BCFS wandelt Ziffernstring nach FlieRkomma 

BDDD wandelt FAC in Ziffernstring 


Jetzt wollen wir uns nach ein Beispiel für einen SYS-Aufruf 
mit Parameterübergabe ansehen. 


Will man von BASIC aus eine Bildschirmausgabe an eine 
bestimmte Position machen, so muß man mit der Cursorsteuerung 
nach HOME die entsprechende Anzahl an Cursor right und Cursor 
down Zeichen drucken. Dies ist umständlich und speicher- 
platzaufwendig. Einfacher gaht es mit einer selbst- 
geschriebenen Maschinenroutine. 


Der Aufruf soll folgende Syntax haben: 

SYS PR, Spalte, Zeile, Druckliste 
Dabei ist PR die Startadresse der Routine, Zeile und Spalte 
sind die Cursarposition, an die die Variablen oder Ausdrücke 


der Druckliste wie beim normalen PRINT-Befehl ausgegeben 
werden. 


C000 20 FD AE JSR CKCOM ; pruft auf Komma 

C0o0S 20 9E B7 JSR GETBYT ; holt Spaltenwert nach X 
C006 8A TXA 

C007 46 PHA ; Spaltennummer merken 


cooß 20 FD AE JSR CKCOM ; prüft auf Komma 

COOB 20 9E B7 JSR GETBYT ; holt Zeilenwert 

COOE 68 PLA 

coor Aa TAY ; Spaltenwert nach Y 
co1ıo 18 CLC 

Col 20 FO FF JSR CURSOR ; setzt Cursor 

c014 20 FD AE JSR CKCOM ; prüft auf Komma 

CO17 4C AA AA JMP_ PRINT ; weiter mit PRINT-Befehl 


Hier wieder ein kurzes Ladeprogramm: 


100 FOR I = 49152 TO 49177 

110 READ X : POKE I,X : S=S+X : NEXT 

120 DATA 32,253,174, 32,158,183,138, 72, 32,253,174, 32 
130 DATA 158,183,104,169, 24, 32,240,255, 32,233,174, 76 
140 DATA 164,170 

150 IF 5 <> 3566 THEN PRINT "FEHLER IN DATAS !!" : END 
160 PRINT "OK !" 


Wenn man zu Anfang des Programms der Variablen PR 
Startadresse $C000 der Routine zweist, läßt sich mit 
folgenden Befehl der Text "Beispiel" ab der 24. Spalte 
20. Zeile ausgeben. 


10 PR = 12#4096 
100 SYS PR, 24, 20, "Beispiel" 


die 
dem 
der 


6.1 Der Monitor - Und was steckt dahinter ? 


Zur Programmierung in Maschinensprache benötigen Sie 
sinnvallerweise einen sogenannten MONITOR (nicht zu verwechseln 
mit einem Datensichtgerät oder Fernseher). Der Monitor ist ein 
Hilfsprogramm. Er ermöglicht das Verändern von Speicherplätzen 
und Registern, die Ausführung von Maschinenprogrammen und das 
Laden, Abspeichern und Disassemblieren von Maschinenprogrammen. 
Außerdem kann man mit dem Monitor schon erstellte 
Maschinenprogramme leicht ändern und korrigieren. 


Wir wollen in diesem Kapitel nun zeigen, wie man mit einen 
normalen Monitor arbeitet. 


Nachdem der Monitor von Kassette oder Diskette gelesen wurde, 
startet man ihn mit dem üblichen Befehl zum Aufruf von 
Maschinenprogrammen. Dieser Befehl lautet: 


SYS xxxXx 


Bei unserem Monıtor würde man sagen: SYS 12#4096. Diese Adresse 
ist die Startadresse des Monitors in dezimal. Hexadezimal ist der 
Wert CO000. Nach diesem Aufruf meldet sich der Monitor mit seinem 
PROMPT (Meldung, daß er nun Monitor-spezifische Befehle 
entgegennehmen kann). In unserem Fall sieht die Meldung so aus: 


C# 


PC IRQ SR AC XR YR SP 
>35 E145 EAIS Si 32 AC 34 FB 
> 


Diese Angaben mussen nun erst einmal genauer erklärt werden. Dazu 
müssen wir uns kurz mit den REGISTERN des 4502 (6510) 
beschäftigen. Denn diese Register werden hier angezeigt. Im 
folgenden bdeutet daher: 

Der Programmzähler: PC 


In dıesem Register steht immer die nächste zu Verarbeitende 
Speicherstelle. In unserem Beispiel ist das dıe Adresse E145. 


Der Interruptvektor: IRO 


Dieses Register steuert eine mögliche Programmunterbrechung und 
Verzweigung. 


Das Statusregister: SR 


In diesem Regıster befinden sıch die Zustände der FLAGGEN 
(Flags). Wir kennen hier folgende Flaggen: 


b7 = Negativ Flagge (Gesetzt bei negativem Ergebnis) 

b6& = Interner überlauf (Gesetzt bei arithm. überlauf) 

b5 = IMMER GESETZT 

b4 = Abbruch Flagge (Gesetzt bei Programmabbruch) 

b3 = Dezimal Flagge (Wechselt von Hex. nach BCD Arithm.) 
bZ = Interrupt Schalter (Steuert den Interrupt) 

bi = Null-Flagge (Gesetzt wenn Ergebnis = 0) 

bO = übertrag Flagge (Gesetzt bei arithm. Übertrag) 


In den meisten Handbüchern finden Sie folgende Darstellung: 
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b7 b& b5 b4 bS b2 bi bO 
Nvı BD I 2 c 


Der Akkumulataor: AC 


In diesem Register werden alle Vergleichs- und Rechenoperationen 
ausgeführt. 


Das X-Register: XR 


Dieses Indexregister dient zur Aufnahme von Daten während des 
Programmabl aufs. 


Das Y-Register: YR 


Dıeses Register hat den selben Zweck wie das oben beschriebene X- 
Register. 


Der Stapelzeiger: SP 


Dieses Register zeigt auf den Stapel, in dem die 
Rücksprungadressen der Unterprogramme abgelegt sind. 


Die Inhalte dieser Register können laufend überprüft und 
verändert werden. Zu beachten ist, daß alle Eingaben von Zahlen 
in hexadezimaler Form zu erfolgen haben. Also zum Beispiel FF für 
die Zahl 255. Zum Ändern der Registerinhalte wird einfach der 
CURSOR (das blinkende Kästchen auf dem Bildschirm) über den 
entsprechenden Wert gebracht, dies geschieht durch Betätigung der 
Pfeil-Tasten auf der Commodore 64 Tastatur, und dann der neue 
Wert eingegeben. Durch Drücken der RETURN-Taste wird dann der 
neue Registerinhalt übernommen. 


Genau so, wie Sie die Registerinhalte anzeigen und ändern, können 
Sie auch die einzelnen Speicherinhalte behandeln. Dies bedeutet 
dann dıe eigentliche Programmierung in Maschinensprache. Um einen 
bestimmten Speicherbereich anzuzeigen, gibt es folgenden Befehl: 


M XxxX YyyYy 


Das M bedeutet MEMORY, also Speicher, xxxx ist die Anfangs- und 
yyyy die Endadresse des auszugebenden Speicherbereichs. Alle 
Adressen müssen als 4-stellige Hexadezimalzahlen angegeben werden 
(z.B. 02A1 für 673)! 


Nach dieser Einagabe werden dann die entsprechenden 
Speicherinhalte angezeigt. Wenn der angegebene Speicherbereich 
nicht vollständig auf den Bildschirm geht, verschiebt sich der 
Bildschirm Zeile für Zeile nach oben, bis die Enadresse 
ausgegeben wurde. Diesen Vorgang kann man durch Drücken der STOP- 
Taste abbrechen. Man befindet sich dann wieder in der 


Kommandozeile. 


So wie wir eben die Registerinhalte verändert haben, so lassen 
sich auch jetzt die Speicherinhalte verändern. Man fährt also mit 
dem Cursor wieder an die entsprechende Stelle, gibt dann den 
neuen Wert, oder die neuen Werte ein, und drückt dann die RETURN- 


Taste. 


So könnte zum Beispiel eine Ausgabe von einem bestimmten 
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Speicherbereich aussehen: 


>M CO0O0O CO10 

>: C0O00 AI 10 BD 16 03 A9 CO 8D 

>: CO08 17 03 A9 43 85 97 DO 16 

>= C010 A9 42 85 97 DB AA 658 BD usw. 


Der Speicher kann aber auch auf eine andere Art und Weise 


dargestellt werden: Durcn das DISASSEMBLIEREN von 
Maschinenprogr amnen. 


Das Disassemblieren hat den Vorteil, daß aus den 
unübersichtlichen Hexzahlen, leicht zu verstehende Bbefehlsfolgen 
werden. Diese Befehlsfolgen bezeichnet man allgemein auch als 
MNEMONICS. Die recht aufwendige übersetzung der Hexzahlen in 
"Klartext", die man sonst von Hand aus erledigen muß, entfällt 


beim Disassemblieren. Allerdings hat das Disassemblieren auch 
einen Nachteil: 


Wenn irgendwo in dem Maschinenprogramm zum Beispiel ein Text, der 
also überhaupt nıchts mit Maschinenbefehlen zu tun nat, 
erscheint, versucht der Disassembler diesen Befehl als 
OPERATIONSCODE zu interpretiern, um aus diesem dann die Mnemonics 
zu machen. Bei nicht existierenden Opcodes, die aus einer solch 
tehlerhaften Interpretation entstehen können, werden an Stelle 
der Mnemonics nur Fragezeichen ausgegeben. Es kann aber auch 
passieren, daß eine anscheinend normale Mnemonics entsteht. Jeder 
erfahrene Maschinenprogrammierer wird aber rasch feststellen, was 
Text oder Variablen sind, und nas Maschinenbefehle sind. 


Der nächste Schritt nach Eingabe oder änderung eines 


Maschinenprogramms ist die Programmausführung. Dies geschieht 
mit diesem Befehl: 


G xxxx 


Das G steht hier für das englische Wort 60 TO und bedeutet einen 
Sprung an die angegebene Adresse xxxx. Diese Adresse ist entweder 
die Startadresse des Maschinenprogramms oder eine 
Einsprungadresse aus irgendeiner Maschinenroutine. 


Trifft das Maschinenprogramm während seiner Ausführung auf einen 
BRK- (BREAK)-Befehl, der im übrigen dem STOP-Befel in BASIC- 
Programmen entspricht, so wird die Ausführung abgebrochen, und 
der Monitor meldet sich wieder mit B*. Durch Einfügen dieses 
Befehls in Maschinenprogrammen, ist es möglich, dieses Programm 
schnell und einfach auszutesten. Nach dem Austesten des 
Programmes kann der BRK-Befehl gegen den eigentlichen Befehl, der 


vor dem Einsetzen von BRK an dieser Speicherstelle stand, wieder 
ausgetauscht werden. 


Maschinenprogramme sollen natürlich nicht nur getest und 
verändert werden, wir wollen Sie auch auf Diskette oder Kassette 
abspeichern. Der Monitor hat für diesen Vorgang den 


entsprechenden Befehl. Er lautet: 


S "NAME" ‚un ,yyyy,22Zzz 
Das S bedeutet SAVE (speichern), an Stelle von NAME können Sie 


einen beliebigen Namen für das Programm angeben (die 
Anführungszeichen '"* müssen mit angegeben werden), xx bedeutet 
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die Geräteadresse (01 = Kassette, 08 = Diskette), yyyy ist die 
Antangs- und zzzz die Endadresse des abzuspeichernden 
Maschinenprogr amns. 


Nach Drücken der RETURN-Taste wird dann das Programm auf dem 
angegebenen Gerät abgespeichert. 


Das Laden von Maschinenprogramaen erfolgt nach einem ähnlichen 
Prinzip. Hier lautet der Befehl: 


L "NAME" „xx 


Er unterscheidet sich in diesem ersten Teil nur durch das L für 
LOAD (oder Laden). Einige Monitore bieten zusätzlich die 
Möglichkeit Maschinenprogramme an verschiedene Speicherstellen zu 
laden. So können Sie ein Programm, das bei der Adresse 0800 
beginnt an die Adresse 2800 legen. Aber Vorsicht '!' Es kann 
passieren, daß das verschobene Programm nicht lauffähig ist. Es 
mussen dann noch alle absoluten Adressen geändert werden. 


Als Abschluß der Programmierung im Monitor gibt es den X-Befehl. 
X bedeutet hierbei EXIT (Ausgang). Durch Verwendung dieses 
Befehls kommt man wieder ins BASIC zurück. Es ist hierbei von 
Vorteil, daß weder das Maschinenprogramm, noch ein mögliches 
BASIC-Programm zerstört wurde. Man muß jedoch darauf achten, daß 
das Maschinenprogramm nicht an die selbe Adresse des BASIC- 
Programms gelegt wurde. Dann würde nämlich das BASIC-Programm 
überschrieben werden. 


Ein Tip uam Rande: Wenn Sie ein Maschinenprogramm geladen haben, 
geben Sie als ersten Befehl, noch vor dem Starten des 
Maschinrnprogrammes, NEW ein. Dieser Befehl setzt wieder alle 
Zeiger auf ihren normalen Zustand zurück. Es könnte sonst 
passieren, daß Sie bei Eingabe eines BASIC-Programas, schon nach 
der ersten Zeile, eine seltsame Fehlermeldung bekommen. 


Natürlich kann man auch ohne Monitor in Maschinensprache 
programmieren. Zumindest kann man die Maschinenprogramme eingeben 
und starten. Doch muß man dabei beachten, daß jede einzelne 
Speicherstelle von BASIC aus geändert werden muß. 


Das bedeutet, daß Sie zunächst eim BASIC-Programm schreiben 
müßten, mıt dem Sie die Operationscodes eingeben können. Das ist 
aber nicht sehr einfach, da Sie alle Operationscodes bei der 
Eingabe ın dezimaler Form angeben müssen, weil der dazu 
notwendige POKE-Befehl nur dezimale Zahlen erlaubt, oder aber 
eıne zusätzliche dezimal-hex Umwandlungsroutine schreiben müssen. 
Bei der Ausgabe der Bytes tritt dann das genau entgegengesetzte 
Problem auf, da dann die mit PEEK gelesenen Werte wiederua in 


dezimaler Form sind. 


Wie Sie sehen, ist die Anschaffung eines in der Regel recht 
preiswerten Monitors jedem angehenden Maschinenprogrammierer, 
oder dem der es werden will, aber auch dem ‘Nur-Hobbyisten’, 
unbedingt zu empfehlen. 
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6.2 Nützliche Adressen des Commodore 64 Betriebssystems 


Wenn man eıgene Programme in Maschinensprache schreibt, kann 
man sich durch geschickte Ausnutzung der ROM-Routinen viel 
Arbeit sparen. Besonders die Routinen zur Bedienung der 
Peripheriegeräte bieten sich dazu an. 

Die wichtigsten Routinen des Commodore 64 sind am Ende des 
ROMs als Sprungtabelle auf die eigentlichen Routinen 
zusammengefaßt. Diese Adressen wurden beim Erscheinen vom 
neuen Commodore Rechnern nicht geändert, sondern nur 
erweitert. Deshalb es ist zum Beispiel möglich Routinen, die 
für einen großen CBM-Rechner geschrieben wurden, ohne 
Schwierigkeiten auf dem Commodore 64 zu übernehmen, sofern 
nur diese sogenannten 'Kernal '-Routinen benutzt wurden. Die 
Sprungtabelle des Commodore 64 ist bis auf dreı zusätzliche 
Adressen mit der des VC 20 identisch, sodaß es mit Hilfe 
dieser Routinen eın leıchtes ist, Programme des VC 20 zu 
konvertieren. Wir wollen uns jetzt einige dieser Routinen 
etwas näher ansehen. 


Adresse Funktion 


£FF9O setzt Flag für Ausgabe von Systemmeldungen 


sFF9S schickt Sekundaradresse nach einem LISTEN-Befehl 
auf den IEC-Bus 


$FFI6 schickt Sekundäradresse nach einem TALK-Befehl 
auf den IEC-Bus 


sfFF7? holt bei gesetzem Carry Flag die höchste RAM- 
Adresse nach X und Y, bei gelöschtem Carray- 
Flag wırd die Adresse von X und Y gesetzt. 


SFFIC die selbe Funktion wie oben, jedoch für den 
RAM-Anfang 

SFFIF trägt die Tastatur ab 

SFFA2 setzt das Time-out Flag für den IEC-Bus 

sSFFAS holt ein Byte vom IEC-Bus in den Akku 

£SFFAB gibt ein Byte aus dem Akku an den IEC-Bus aus 

sFFAB sendet UNTALK-Befehl auf den IEC-Bus 

<SFFAE sendet UNLISTEN-Befehl auf den IEC-Bus 

ıFFBl sendet LISTEN-Befehl auf den TEC-Bus 

£FFB4 sendet TALK-Befehl zum IEC-Bus 

&$FFB7 holt das Statuswort in den Akku 

£ZFFBA setzt die Fileparameter, Akku muß logischen 


Filenummer enthalten, X = Gerätenummer und 
Y = Sekundäradresse 
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Adresse Funktion 


$FFBD setzt Parameter des Filenamens, Akku muß 
Länge des Namens enthalten, X und Y enthalten 
die Adresse des Filenamens 


SFFCO OPEN-Befehl, öffnet logische Datei 


$FFCI CLOSE-Befehl, schließt logische Datei, 
Akku muß logische Filenummer enthalten 


SFFC6 CHKIN setzt folgende Eingabe auf logische 
Datei, die in X übergeben wird 
Die logische Datei muß vorher mit der 
DOPEN-Routine geöffnet werden 


$FFC9 CKOUT setzt folgende Ausgabe auf logische 
Datei, die in X übergeben wird 
Die logische Datei muß vorher mit der 
DPEN-Routine geöffnet werden 


sFFCC ELRCH setzt die Ein- und Ausgabe wieder 
auf Standard (Tastaatur/Bildschirm) 

sFFCF BASIN Eingabe, holt ein Zeichen in den Akku 

$FFD2 BSOUT Ausgabe, gibt Zeichen im Akku aus 

£SFFDS LOAD, lädt Programm in den Speicher 

sFFDE SAVE, speichert Programm ab 

$SFFDB setzt die laufende Zeit neu 

$FFDE holt die laufende Zeit 

$FFEI frägt die STOP-Taste ab 

sFFE4 GET, holt ein Zeichen in den Akku 

sFFE7 CLALL, setzt alle Ein-/Ausgabekanäle 


zurück, die Dateien werden jedoch 
nicht geschlossen 


sSFFEA erhöht die laufende Zeit um eine 
sechzigstel Sekunde 


$FFED SCREEN holt die Anzahl der Zeilen und 
und Spalten des Bildschirms 


s$FFFO bei gelöschtem Carry-Flag wird der Cursor 
auf die Position X/Y gesetzt, bei gesetztem 
Carry Flag wird die Cursorposition geholt 


SFFFS holt die Startadresse des 1/0-Bausteins 


Zur Bedienung des Bildschirm stehen auch einige Rautinen zur 
Verfügung, die Sie als Anwender benutzen können. Dazu gehört 
auch die schon oben erwähnte Routine zur Positionierung des 
Cursors. Im #olgenden sind die wichtigsten Routinen 
aufgeführt. 
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Adresse Funktion 


sES18 kompletter Reset des Bildschirms und der 
Tastaturabfrage 

$E544 CLR, löscht den Bildschirm 

SES66 HOME, bringt den Cursor in die linke obere 
Ecke des Bildschirms 

sES6C berachnet die Cursorposition 

sESAO lädt den Videocontroller mit den Standardwerten 

sEe5B4 holt ein Zeichen aus dem Tastaturpuffer 

$ESCA wartet auf Tastatureingabe 

$EBEA Bildschirm scrollen, schiebt Bildschirm 
um eine Zeile nach oben 

sE9IFF löscht eine Bildschirmzeile 

$EAIC setzt ein Zeichen mit Farbe auf dem Bildschirm 


(Bildschirmkode im Akku, Farbe in X) 
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6.3. Datenein- und Ausgabe von Maschinenprogrammen aus 

Will man eigene Maschinenprogramme schreiben, so kann man 
besonders für die Datenein- und Ausgabe auf die Routinen des 
Betriebssystems zurückgreifen. Diese Routinen stehen in einer 
Sprungtabelle am Ende des ROMS, siehe dazu die letzte Beite 
des RDOM-Listings. 

6.5.1. Ein- und Ausgabe von einzelnen Bytes 


Die grundlegenden Routinen sind 


BSOUT SFFD2 Ausgabe eines Bytes 
und BASIN SFFCF Eingabe eines Bytes 


Das auszugebende bzw. einzulesande Byte wird im Akku 
übergeben. Der Akku ist das Universalregister des Prozessors, 
in dem alle Operationen ablaufen. 


Beispiel: Ausgabe eines Textes auf den Bildschirm. 


AUSGABE LDX “o 


Li LDA TEXT,X ; Text holen 
JSR BSOUT ; und ausgeben 
INX 
EPX #12 ; schon alle Zeichen ? 
BNE Li 
RTS 
TEXT .ASC "Beispieltext" 


Die Eingabe geschieht analog. Soll z.B. ein Text über die 
Tastatur eingebenen und gespeichert werden, so erscheint der 
Cursor, und die Zeichen bis zum Drücken der RETURN-Taste 
werden übernommen, 


EINGABE LDX “o 


Li JSR BASIN ; ein Zeichen holen 
STA TEXT,X ;3 und speichern 
INX 
CMP #13 ; ist es RETURN ? 
BNE Li ; nein, weitere Zeichen holen 
RTS 
TEXT = ... ; Platz zum Speichern des Textes 


Diese Routinen geben ein Zeichen auf den Bildschirm aus bzw. 
holen ein Zeichen von der Tastatur. 


Bei der Ausgabe auf den Bildschirm kann natürlich von der 
Bildschirmsteuerung voll Gebrauch gemacht werden. Dazu 
gehören zum Beispiel die Kodes zur Cursorsteuerung oder zum 
Bildschirm löschen. Der entsprechende Kode wird dazu in den 
Akku geladen und mit der Ausgaberoutine übergeben. 


Beipiel: Bildschirm löschen 


LDA #147 ; Kode zum Bildschirm löschen 
JSR BSOUT ; ausgeben 


Speziell zur Bildschirmausgabe gibt es nach einige nützliche 
Routinen, die die Programmierung vereinfachen können. 
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Die Routine zum Bildschirm löschen kann direkt aufgerufen 
werden 


JSR CLRSCR 
Auf für Cursor home existiert eine Routine. 
JSR HOME 


Besonders interessant ist die Möglichkeit, den Cursor direkt 
auf eine bestimmte Bildschirmposition zu setzen. 


LDX ZEILE 
LDY SPALTE 


Cursorzeile, O bis 24 
Cursorspalte, O0 bis 39 


cc Carry clear gleich Cursor setzen 
JSR CURSOR Cursor setzen 
LDA wa" auszugebendes Zeichen 


JSR BSOUT auf Bildschirm 

Das Unterprogramm CURSOR hat zwei Funktionen. Bei Aufruf mit 
gelöschtem Carryflag setzt es den Cursor auf die Zeile und 
Spalte, die im X- und Y-Register stehen. Wird CURSOR dagegen 
mit gesetzem Carryflag aufgerufen, wird die momentane Cursor- 
position geholt und im X- und Y-Register übergeben. 


Hier die Adressen der obigen Routinen: 


CLRSER sE544 
HONE sSES6b& 
CURSOR sFFFO 


6.3.2. Ein- und Ausgabe über Peripheriegeräte 


Auf für die Ein- und Ausgabe auf Peripheriegeräte hält das 
Betriebssystem die benätigten Rautinen bereit. Dazu soll kurz 
auf das Konzept der Ein/Ausgabe eingegangen werden. 


Den Peripheriegeräten nird eine Nummer von O0 bis 15 zuge- 
wiesen, über die sie vom Betriebssystem angesprochen werden. 


Nummer Gerät 
Tastatur 
Datasette 
RS 252 Schnittstelle 
Bildschirm 
15 Geräte am seriellen IEC-Bus (Drucker, Floppy) 


IAN-O 


Zu dieser Geräteadresse oder Primäradresse kommt nach 
optional eine Sekundäradresse, die die Arbeitsweise des 
Peripheriegeräts bestimmt und ein Datei- oder 'File'‘-name. Um 
nun nicht jedesmal alle Parameter angeben zu müssen, wenn man 


ein Peripheriegerät anspricht, wird noch die logische 
Filenummer eingeführt. Zu jeder Filenummer werden einmal mit 
OPEN die Primär- und Sekundäradresse sonie ein Filename -u- 


geordnet. Jeder weitere Bezug geschieht dann über die lo- 
gische Filenummer. 


Vor der ersten Ein- oder Ausgabe ist die Datei zu eröffnen. 
Die kann von BASIC aus mit DPEN geschehen oder auch von 
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Maschinensprache aus. Dazu mussen vorher die Fileparameter 
gesetzt werden. Die logische Filenummer muß in %B8 (184) 


stehen, Gerätenummer in $BA (186), Sekundärdresse in $B7 
(185), die Länge des Filenamens in $B7 (183) (Null wenn kein 
Filename gegeben ist) und die Adresse des Filenamens in 


*BB/s#BC (187/188). Dann wird das Unterprogramm OPEN SFFCO 
aufgerufen, 


Soll jetzt die Ausgabe auf die geöffnete Datei gehen, so ist 
folgende Routine aufzurufen: 


LDX LF ; logischen Filenummer 
JSR CKOUT ; $SFFC9, Ausgabe auf Datei legen 


Wird jetzt die Routine BSOUT (s.o.) aufgerufen, so gaht die 
Ausgabe anstatt auf dem Bildschirm auf das Gerät, dem die 
obige logische Filenummer zugeordnet ist. 

Ist LF die logische Filenummer des Druckers, so würde jetzt 
durch Aufruf des obigen Beispielprogramms AUSGABE der Text 
auf den Drucker geschrieben. 


Die Ausgabe geht solange auf dieses Gerät, bis die Routine 
CLRCH aufgerufen wird. 


JSR CLRCH ;s $SFFCC ,„ Ausgabe auf Bildschirm 


Soll die Dateneingabe aus einer Datei geschehen, z.B. vom 
Band oder von der Floppy, kann man das folgendermaßen 
erreichen: 


LDX LF ; Filenummer des Eingabegeräts 
JSR CHKIN ; SFFC6 
Jetzt werden durch Aufrufen von BASIN (s.o.) Daten aus der 


geöffneten Datei geholt. Der Aufruf des Programms EINGABE 
würde sich jetzt z.B. Daten von der Floppy holen. Dies 
geschieht solange, bis mit CLRCH wieder auf Standardeingabe 
(Tastatur) umgeschaltet wird. Die Datei wird dadurch nicht 
geschlossen. Dies geschieht erst durch Aufruf der Rautine 
CLOSE. 


LDA LF ; logische Filenummer 
JSR ELOSE ; SFFCS, Datei schließen 
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6.3.3. Die Technik der Datenspeicherung - LOAD und SAVE 


Zur Daten- und Programmspeicherung stehen Ihnen beim 
Commodore 64 zwei grundsätzliche Möglichkeiten zur Verfügung 
- Speicherung auf Kassette oder Diskette. Da sich die beiden 
Geräte in Möglichkeiten und Technik sehr unterscheiden, 
sollen sie getrennt beschrieben werden, 


Datenspeicherung auf Kassette 


Die Technik des Kassettenrakorders eriaubt ea prinzipiell nur 
Daten sequentiell aufzuzeichnen und auch nur in der gleichen 
Reihenfolge wieder zu lesen. Ein direkter Zugriff auf 
bestimmte Daten ist aleo nicht möglich. Man muß solange 
lesen, bis man die gewünschten Daten erreicht hat. Ebenso ist 
ein Verändern von Daten nieht möglich. Man kann nur die Datei 
komplett I1usen, die änderung vornehmen und dann die Datei 
wieder komplett auf Band zurückschreiben. 


Da zur Programmepeicherung nur ein sequentielles Schreiben 
und Lesen notwendig ist, bietet sich der Kassettenrekorder 
als preiswertes Medium zur Programmspeicherung an. Als 
Nachteil bleibt Jedoch die geringe Beschwindigkeit, mit der 
dies geschieht. Dies ist ein prinzipieller Nachtetl, da die 
Daten seriell (bitmeise) übertragen und gespeichert werden. 
Aus Oründen der Datensicherheit werden die gesamten Daten 
zweimal hintereinander übertragen, um Aussetzer (drop outn) 
durch fehlerhafte Bandsatellen korrigieren zu können. 


Sehen wir uns Jetzt die Technik der Datennpeichrrung mtwan 
genauer an. 

Sollen Daten auf Band geschrieben werden, ao muß das Band 
gestartet werden, Dies geschieht automatisch durch den 
Computer. Zuerst nird ein Ton zur Synchronisation auf das 
Band geschrieben und dann zweimal hintereinander die Daten. 
Damit diese zeıtaufwendige Prozedur nicht zu oft geschehen 
muß, werden dıe zu schreibenden Daten zuerst in einem Puffer 
gesammelt bevor sie auf Band geschriaben werden. Der 
Bandpuffer ist 192 Zeichen lang und liegt im Commodore 64 von 
Adrense 828 bis 1019 (£33C - #IFB). Beim Einlesen werden die 
Daten aus dem Bandpuffer geholt. Da auf dem Band 
verschiedenartige Daten gespeichert werden sollen, muß eine 
Möglichkeit zur Unterscheidung geschaffen werden. Deshalb 
geht jeder Datenaufzeichung sin Kopf '’Hesader’ voraus, der die 
Informationen enthält, Der Header wird in den Puffer und dann 
auf Sand geschrieben und später wieder von Band in den Puffar 
geladen. 


Der Header ist folgendermaßen aufgebautı 


l, Byte Kennzeichen für Headertyp 
2. Byte Startadresse, lon Byte 

> Byte Startadressse, high Byte 
4, Byte Endadresse, low Byte 

5. Byte Endadresse, high Byte 


6.- 21. Byte Filenamen 
Der Headeartyp (erstes Byte) hat folgende Bedeutungs 


1 - BASIC-Programm, wird ab BABIC-Start geladen 
2 - Datenblock, Bytes 2 -192 enthalten die Daten 
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3 - Maschinenprogramm, wird absolut geladen 
4 = Datenheader, kündigt ein Datenfile an 
5 = End of Tape Block, kennzeichnet Bandende 


Handelt es sich um einen Programmheader, Typ 1 oder 3, dann 
folgen in den den nächsten 4 Bytes die Programmstart- und 
Endadresse sowie anschließend der Programmname. Auf dem Band 
steht danach in einem Block das Programm (zweimal). 

Ist der Headertyp 3, dann wird das Programm ab der Adresse 
geladen, die im Programmheader steht. Beim Headertyp 1 wird 
die gelesene Gtartadresnse verworfen und das Programm ab dem 
BASIC-Start geladen (normalerweise 3800). Durch Angabe der 
Sekundäradresse I beim Laden läft sich ein absolutes Laden 
(an die gelesene Btartadresse) erzwingen. Dies ist bei 
Maschinenprogrammen unbedingt notwendig, da solche Programme 
nur in dem Speicherbereich laufen, für den sie auch 
geschrieben wurden, 

Beim Headertyp 2 handelt es sich um Daten, die mit PRINT# auf 
Band geschrieben wurden. Bei jedem INPUT# oder GET# werden 
dann Daten aus dem Puffer gelesun, Ist der Puffer luer, wird 
die Progr ammausf üuhrung unterbrochen und der nächste 
Datenbiock vom Band in den Puffer gelesen, 

Wie kann man nun beim Abspeichern eines Programms 
entschelden, ob es als BABIC-Programm oder ale Maschinen- 
programm grepeichert wird? Dies geschieht über die 
Sekundädradrenne. Abspeichern ohne Bekundäradresse tcder O0) 
erzougt uin HABIC-Programm, Headertyp 1. Bekundaradre 1 
(oder rine ungerade Zahl) erzeugt ein Maschinenpragramm. 
Sekundäradresse 2 oder 3 schreibt nach dem Programm nach 
einen End-Of-Tape Block. 


Hier ist der Zusammenhang nochmal tabellarischı 


LADEN 


LDANn "NAME" 1 - lädt BABIC-Programm verschieblich 
gekennzeichnetes Maschinenprogramm 
(Typ 3) wird absolut geladen 

LOAD "NAME" 1,1 - lädt jedes Programm absolut 

SPEICHERN 

BAVE "NAME" Lt - speichert als BAGIC-Programm ab 

BAVE "NAME" 1,1 - speichert als Maschinenprogramm ab 

SAVE "NAME" ,1,2 - speichert als BASIC-Programm mit 
zusätzlichem EDT-Block 

SAVE "NAME" ,1,3 - spnichert als Maschinsnprogramm mit 


zusätzlichem EOT-Block 


Beim öffnen einer Banddatei hat die Sekundiradresse folgende 
Bedeutungı 


DPEN 1,1,0, "NAME" - öffnet Datei zum Lesen 

OPEN 1,1,1, "NAME" - dffnet Datei zum Schreiben 

OPEN 1,1,2, "NAME" - bffnet Datei zum Schreiben mit 
zusätzlichem EOT-Block 


Wird beim Laden eines Programms oder beim Bffnen der Datei 
vom Band ein EOT-Block gefunden, so wird die Fehlermeldung 
"file not found error’ ausgegeben. 

Der CLOSE-Befehl schließt eine Datei wieder. War die Datei 
zum Schreiben geöffnet, wird dadurch in den Bandpuffer ein 
Endekennzeichen geschrieben (Nullbyte) und der Puffer auf 
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Band geschrieben. Daraus wird klar, daß “es unbedingt 
erforderlich ist, nach dem Schreiben auf eine Banddatei diese 
mit CLOSE zu schließen, da sonst die letzten Daten nicht auf 
Band geschrieben werden und verloren gehen. 

War die Sekundäradresse 2 angegeben, wird zusätzlich noch ein 
End-of-Tape Block (EOT} auf Band geschrieben. 


Ebenso gibt es Einschränkungen bei der Datenübertragung auf 
Band. Normalerweise werden die Daten im ASCII-Format auf Band 
geschrieben (Buchstaben, Ziffern und Sonderzeichen). Werden 
mit PRINT#1, CHR$(I) Daten geschrieben, so lassen sich nicht 
alle möglichen Zeichen schreiben. Insbesondere wırd CHRF(O) 
ausgefiltert, da es vom Betriebssystem als Endekennzeichen 
verwendet wird. 


Datenspeicherung auf Diskette 


Alle diese Einschränkungen bestehen bei der Datenübertragen 
auf Diskette nicht. Eine Dıskette ist in einzelne Spuren und 
Sektoren unterteilt, auf die einzeln zugegriffen werden kann. 
Dadurch ist es möglich, direkt auf die gewünschten Daten 
zuzugreifen ohne erst eine Vielzahl anderer Daten überlesen 
zu müssen. 


Programme werden folgendermaßen gespeichert: 
Zuerst werden das low Byte und das high Byte der 


Programmadresse übertragen und unmittelbar danach das 
Programm selbst. Ein Unterschied zwischen BASIC-Programm und 
Maschinenprogramm wird beim Abspeichern nicht gemacht. Die 


Unterscheidung wird nur beim Laden gemacht. 


LOAD "NAME",B lädt BASIC-Programm 
Programmstartadresse wird ignoriert, es 
wird ab BASIC-Start geladen. 

LOAD "NAME" ,B,1 lädt Maschinenprogramm, das Programm 
wird ab der gespeicherten Startadresse 
geladen. 


Will man die Startadresse eines Programms auf Diskette 
wissen, kann man dies so machen: 


10 OPEN 1,8,0,"NAME" :REM Programmdatei zu Lesen öffnen 
20 GET#1, As, B$ :REM Startadresse holen 
so IF At = "" THEN A& = CHR$(O) 
40 IF B£ = "" THEN B$ = CHRF(O) 
50 PRINT ASC (As) +256#ASC (BS):REM Adresse dezimal 
60 CLOSE 1 
Die Startadresse des Programms wird dezımal ausgedruckt. Die 


Abfrage auf den Leerstring in Zeile 30 und 40 ist deshalb 
erforderlich, weıl der GET-Befehl ein Nullbyte nicht 
akzeptiert. 

Will man zum Beispiel ein Maschinenprogramm auf Diskette 
schreiben, so kann dies so geschehen: 


10 OPEN 1,8,1,"NAME":REM Programmdatei öffnen 

20 PRINT#1, CHRS(AD-INT(AD/256)#256); :REM Adresse low 
30 PRINT#1, CHRF(AD/256);5 :REM Startadresse high 

40 FOR I=0 TO N -1: N Bytes speichern 

50 PRINT#1, CHR$S(PEEK(AD+I)); :NEXT 
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60 CLOSE 1 : REM Programmdatei schließen 


Die Variable AD enthält dabei die Startadresse, N ist die 
Länge des Programms in Byte. 


Wie kann man nun Programme oder beliebige Speicherbereiche 
von Maschinensprache aus abspeichern? 

Auch hierzu existieren wieder zwei Betriebssystem-Routinen, 
die diese Arbeit übernehmen. 


LOAD &SFFDS 
SAVE £FFDB 


Die LOAD-Routine wird folgendermaßen benutzt: 

Der Akku wird mit Null geladen. Dies ist das Kennzeichen für 
LOAD. Wird die LOAD-Routine mit I im Akku aufgerufen, wird 
VERIFY durchgeführt. Die Sekundäradresse entscheidet, wohin 
geladen wırd. Ist die Sekundäradresse ungleich null, so wird 
an dıe Adresse geladen, die im Programm gespeichert ist. Ist 
die Sekundäradresse gleich null, wird an die Adresse geladen, 
die im X- (low) und Y-Register (high) übergeben wird. Ferner 
müssen Geräteadresse und Filename gespeichert sein. Auch dazu 
gibt es ROM-Routinen. 


Beispiel: Laden eines Maschinenprogramms von Diskette an die 
Originaladresse. 


LDX #8 Gerätenummer der Floppy 
LDY #1 Sekundäradresse 

JSR #FFBA Fileparameter setzen 
LDA #5 Länge des Filenamens 


Adresse des Filenamens 
High Byte der Adresse 
Parameter für Filenamen setzen 


LDX #<CNAME 
LDY # NAME 
JSR =FFBD 


LDA “Oo LOAD-Flag 
JSR LOAD Programm laden 
STX ADR Endadresse low 


DL BET u TEE TEE EEE EFT 


STY ADR+1 Endadresse high 

Wie aus dem Beispiel ersichtlich, übergibt die LOAD-Routine 
im X- und Y-Register die Endadresse des geladenen Programms. 
Im nächsten Beispiel soll ein Programm vom Band ab Adresse 
6000 geladen werden, die gespeicherte Adresse wird 
ignoriert. 


LDX #2 Gerätenummer des Rekorders 
LDY #0 Sekundäradresse 

JSR sSFFBA Fileparameter setzen 

LDA #5 Länge des Filenamens 


Adresse des Filenamens 

High Byte der Adresse 
Parameter für Filenamen setzen 
LOAD-Flag 

Loadadresse low 

Loadadresse high 

Programm laden 

Endadresse lon 

Endadresse high 


LDX #4<NAME 
LDY #>NAME 
JSR £FFBD 
LDA “o 

LDX Rs00 
LDY #560 
JSR LOAD 
STX ADR 
STY ADR+1 


a nn ae 


Mit dem Monitor für den Commodore 64 wird ein Programm immer 
absolut geladen und (auf Kassette) gespeichert. 
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Soll von einem BASIC-Programm aus ein Maschinenprogramm mit 
LOAD geladen werden, so ergeben sich einige Schwierigkeiten. 
Absolutes Laden laßt sich zwar leicht durch Angabe der 
Sekundäradresse 1 erreichen, es besteht jedoch noch ein 
zweites Problem. Nach jedem LOAD wird die Endadresse des 
Laden immer gleich der Endadresse des BASIC-Programms gesatzt 
und die Programmausführung beginnt wıeder am Programmanfang. 
Dıem ist für das Nachladen von BASIC-Programmen (Overlay) 


durchaus sinnvoll, macht jedoch beim Laden von 
Maschinenprogrammen oder sonstigen Speicherinhalten Probleme. 
In einem solchen Falle empfiehlt sich ein kleinos 


Maschinenprogramm wie eins der obigen Beispiele, das z.B. vom 
BABIC-Programm aus mit SYS aufgerufen wird. Auch eine 
Parameteriibergabe ist möglich, z.B. Filenamen und 
Geräteadreuse. Aufruf und Anwendung der entsprachenden 
Routinen ist in Kapitel 4 beschrieben. 


Abspeichern von Frogrammen oder beliebigen Bpeicherbereichen 
mit der SAVE-Routine geschieht ähnlich. 

Hierzu muß der BAVE-Routine die Start- und Endadresse 
mitgeteilt werden. Außerdem „erden Gerätuadreuse sonie Länge 
und Adresse des Filenamens (beim Abspeichern auf Diukette® 
unbedingt ertorderlich) benötigt. Die Startadresse mun in der 


Zeropage an zwei sufreinander Folgenden Adressen stehen (low 
und high Byte), im Akku wird ein Zeiger auf diese Adrense 
üÜberyeban. Die Endadresse steht im X- (low Byte) und 


Y-Register thigh Byte). Geräte- und Filenamenparameter werden 
wie bei der LOAD-Routine gesetzt. Wir wollen als Beispiel 
jetzt den Speicherbereich von #C000 bim $SCFFF unter dem Namen 
"PROGRAMM" auf Diskette speichern und haben die Startadrenne 
des Programms in £FB/$FC gespeichert. 


LDx “8 
JIR sFFBA 
LDA “8 


I Gerätenummer der Floppy 
ı Fileparameter satzen 
e s Länge des Filanamens 
LDX #<NAME ı Adresse des Filenamens 
LDY W>NAME , High Byte der Adresse 
J6R $FFBD ı Parameter für Filenaman setzen 

’ 

j 

1) 

’ 

I 


ULDA “sFB Zeiger auf Startadrense 
LDX #200 Endadresse + I low 
LDY “sDOo Endadresse + | high 


JSR BAVE 


Programm speichern 
NAME „ASC "PROBRAMM" 


Filename 


Wie Sie aus dem Beispiel ersehen, wird der Inhalt der 
Endadresse nicht mehr abgespeichert, es muß deshalb immer die 
Endadresse plus eins angegeben warden. Zum Abschluß wollen 
wir noch ein BASIC-Programm ohne Filenamen mit 
EOT-Kennzeichen auf Kassette schreiben. 


LDX “ ı Gerätenummer des Rekorders 

LDY “2 ı Bekundäradresse für End-of-Tape 
JIR &FFBA ı Fileparameter setzen 

LDA “Oo $ kein Filenamens 

JER SFFBD 3 Parameter für Filenamen setzen 
LDA “#2B ı Zeiger auf BABIC-Programmstart 
LDX s2D ; Endadresse low des Programms 
LDY $2E ı Endadresse high 

JER SAVE ı Programm speichern 
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6.3.4. Die Frogrammierung der RS 232 Schnittstelle 


RS 232 ist die Bezeichnung für sine Schnittstelle zur 
seriellen Datenübertragung. Auch die europäische Bezeichnung 
v24 ist gebräuchlich. Was bedeutst nun serielle Übertragung 
und wann wird sie benutzt? 

Bei der seriellen Übertragung werden nicht wie bei der 
parallelen Schnittstelle jeweils 8 Bits auf verschiedenen 
Leitungen gleichzeitig, sondern Bit #ür Bit nacheinander 
übertragen. Daraus ergeben sich schon Vor- und Nachteile der 
verschiedenen Üübertragungsweisen. Die serielle üchnittstelle 
kommt mit weniger Leitungen aus, z.B. ist Datenübertragung 
über eine Telefonleitung möglich, dafur geht es jedoch nicht 
so schnell wie bei der parallelen Übertragung, wihrend diese 
wiederum mehr Leitungen benötigt. 


Das Betriebssystem des Commodore 64 enthält bereits die kom- 
plette Software zur Bedienung einer seriellen RS 232 Schnitt- 
stelle. Die Schnittstelle selbst ist als RB 232 Bteckmadul 
erhältlich, das auf den UBER-Port gesetzt wird. Jetzt können 
Sie mit Ihrem Commodore 64 auch mit Geräten mit serieller 
Schnittstelle kommunizieren. 


Das Eietrinbasystem hat der RS 232 Echnittatelle die Geräte- 
adresse 2 zugeordnet, Wird ein logisches File mit Geräite- 
nummer 2 oröffnet, so legt das Betriebssystem zwei Puffer zu 
je 256 Dyte als Ein- und Ausgabspuffer #ür die zu über- 
tragenden Daten an. Dieser Pufferbereich liegt normalerweise 
am Ende dns BASIC-RAMs., Wird die RS 232 Schnittstelle in 
einem BAJIC-Programm verwendet, sollte der OPEN-Befehl zuerst 
gegeben werden, da dabei alle Variablen gelöscht werden, Auch 
wird nicht geprüft, ob nach ausreichend Speicher vorhanden 
ist. Zu einer Zeit kann immer nur ein Datenkanal für RS 232 
offen sein. 


Die Parameter #ür die Datenübertragung werden durch ain 
Kontrollragister und ein Befshlarsgister festgalegt. Diese 
beiden Register werden als die ersten beiden Zeichen des 
'Filenamens‘ übergeben. 


Das Kontrollraegister dient zur Definition der Baud-Rate sanis 
der Anzanl der zu übertragenden Daten- und Stopbits. Die 
Baud-Rate bastimmt die Beschwindigkeit der Datenübertragung 
in Bits pro Sekunde, die Stopbits werden nach jedem über- 
tragenen Datenwort (5-B Bits) gesandt. 


Das Befsehlaragister bestimmt Übertragungsart, Paritätsprüfung 
und Art des Handshake. 


Beim Kontrallregister bestimmen die untersten 4 Bits die 
Baud-Rate nach folgendar Tabellaı 


Bit 3 210 dezimal Baud-Rate 
0000 [6] Anwender (nicht implementiert) 
o 001 N so 
0010 2 753 
oo ı 1 3 110 
016000 4 134.5 
o 110% 5 150 
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0 1 1 0 & 300 
oı 1 1 7 600 
1000 8 1200 
10 0 \ı 7 1800 
10 1 0 10 2400 
1071 ı 11 3600 (nicht implementiert) 
1100 12 4800 (nicht implementiert) 
i-"1..0.-1 13 7200 tnicht implementiert) 
1 ı ı 0 14 9600 (nicht implementiert) 
ı 1 1 i 15 19200 (nicht implementiert) 


Sie können also Baud-Raten zwischen 50 und 7400 programmie- 
ren. Die Anzahl der Datenbits wird durch Bit 5 und & 
bestimmt: 


Bit 6 5 dezimal Anzahl der Datenbits 
o0 0 {6} 8 Bits 
o 1 52 7 Bits 
1 0 64 6 Bits 
ee | 96 5 Bits 


Die Anzahl der Stopbıts schließlich wird durch Bit 7 be- 
stimmt: 


Bit 7 dezimal Anzahl der Stopbits 
o ° 1 Stopbit 
1 128 2 Stopbits 


Das Befehlsregister ıst folgendermafien organisiert: 


Bit 0 dezimal Handshake 
[e] [e) 3-Draht Handshake 
1 1 X-Draht Handshake 
Bit 4 dezimal übertragungsart 
{6} o Vollduplex 
ı 16 Halbduplex 
Bit 7 & 5 dezimal Paritätsprüfung 
x x oo {0} keine Paritätsprüfung, 
kein B. Datenbit 
oo 1 32 ungerade Parität 
oO ı 1 96 gerade Parität 
101 160 keine Paritätsprüfung, 
8. Datenbit immer 1 
ı 12 1 224 keine Faritätsprüfung, 


8. Datenbit immer © 


Sie wollen einen RS 232 Datenkanal mit folgenden Parametern 
eröffnen: 


übertragungsrate 2400 Baud 
7 Bit ASCII Daten 

2 Stopbits 

keine Paritätsprüfung 

8. Datenbit immer O 
Vollduplex 

3-Draht Handshake 


11& 


Die OPEN-Anweisung sähe dann so aus: 
OFEN t, 2, O, CHRT(10+0+128) +CHRF (0+0+224) 


Das Statusregister beim Verkehr über die RS 232 Schnittstelle 
hat eine andere Bedeutung als in der normalen Daten- 
übertragung. Es läßt sich in BASIC zwar auch über die 
Variable ST abfragen, wird jedoch bei jedem Lesen gelöscht. 
Soll der Statuswert daher für mehrere Abfragen benutzt 
werden, muß er erst einer anderen Variablen zugeordnet 
werden. ST gibt nur den RS 232 Status wieder, wenn der letzte 
Datenverkehr über RS 232 lief. Von einem Maschinenprogramm 
läßt sich der Status jedoch auch ohne Löschen lesen. Die 
Bedeutung der einzelnen Bits des RS 232 Status ist im 
folgenden beschrieben. Ein gesetztes Bit bedeutet dabei, daß 
die Bedingung aufgetreten ist. 


a 


NerUVPÜN-O- 
r 


Beschreibung 

Paritätsfehler 

Rahmenfenler 

Empfängerpuffer voll 

unbenutzt 

CTS (Clear to send) Signal fehlt 
unbenutzt 

DSR (Data set ready) Signal fehlt 
Break Signal empfangen 


Geschieht die Programmierung der RS 232 Schnittstelle in 
Maschinensprache, so kann man die Ein- und Ausgabepuffer für 
die Datenübertragung in einen beliebigen Speicherbreich 
legen. Die Zeiger auf die Puffer werden beim OPEN-Befehl 
einmal gesetzt und können danach jedoch in einen anderen 
Speicherbereich gelegt werden. Die entsprechenden Zeiger 
liegen in der Zeropage und zwar zeigt SF7/sFB auf den 
Eingabepuffer und $F9/$FA auf den Ausgabepuffer. 

Die Programmierung der Ein- Ausgabe auf die RS 232 
Schnittstelle geschieht genauso wie bei anderen 
Ausgabegeräten, als Geräteadresse wird 2 gewählt. Siehe dazu 
das Kapitel über Ein/Ausgabeprogrammierung. 


Dazu noch einige Adressen für die RS 232 Ein/Ausgabe 


302953 Kontrollwort 

$0294 Befehlswort 

30298 Anzahl der Datenbits, wird bei OPEN berechnet 
20297 RS 232 Statuswort . 
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6.3.5. Der serielle IEC-Bus des Commodore 64 


Der Commodore 64 hat zum Anschluß von Peripheriegeräten einen 
seriellen Bus, an dem mehrere Geräte gleichzeitig betrieben 
werden können. Der Bus ist analog dem IEC-Bus (IEEE 458) der 
großen CBM-Geräte konzipiert, die Daten werden jedoch nicht 
parallel (jeweils 8 Bit gleich ein Byte gleichzeitig) wie 
beim IEEE-488-Bus sondern seriell Bit für Bıt übertragen. 
Dadurch ist die übertragungsgeschwindigkeit kleiner. 


Zuerst soll das Konzept des lEC-Bus kurz erläutert werden. 


Da am IEC-Bus gleichzeitig mehrere Geräte betrieben werden 
können, müssen sie zu unterscheiden sein. Dazu dient die 
Gerätenummer oder Primäradresse. Der Commodore hat für den 
lEC-Bus die Geraätenummern 4 bis 15 reserviert. Soll nun ein 


Gerät angesprochen werden, so sendet der Bus-Controller, was 
in unserem Fall immer der Computer ist, ein "Achtung ’-Signal 
auf einer Steuerleitung, auch Attention genannt oder ATN 
abgekürzt. Danach sendet der Computer die Geräteadresse des 
Geräts, das angesprochen werden soll. Danach wird das 


Attention-Signal wieder zurückgesetzt. Als nächstes muß dem 
Gerät jetzt mitgeteilt werden, ob es Daten empfangen oder 
Daten senden soll. Der Vergleich von Zuhörer und Redner ist 
hier angebracht, im Englischen spricht man von Listener und 
Talker. Soll ein Gerät Daten empfangen, so sendet man einen 
LISTEN-Befehl. Werden Daten von dem Gerät erwartet, so 
schickt man einen TALK-Befehl. Danach kann noch eine 
Sekundäradresse gesandt werden, die eine bestimmte 
Betriebsart auswählt bzw. festlegt wie die Daten zu 
verarbeiten sind. Jetzt kann man dann entweder Daten schicken 
oder empfangen. Damit die Datenübertragung richtig 
funktioniert, muß sichergestellt werden, daß das nächste Byte 
erst dann übertragen wird, wenn der Empfänger das Byte auch 
erhalten und gegebenenfalls verarbeitet hat. Dazu ist das 
sogenannte Handshake da. Dazu teilt der Sender mit, wenn er 
Daten auf den Bus gelegt hat. Wenn der Empfänger die Daten 
erhalten hat und bereit ist, die nächsten Daten zu erhalten, 
teilt er dies dem Sender mit und die übertragung kann weiter 
gehen. Dadurch geht die übertragung immer mit der maximalen 
Geschwindigkeit vonstatten, die die beiden Geräte erlauben. 
Ist die übertragung beendet, so wird das Gerät wieder 
deadressiert. Dazu sendet der Computer entweder UNTALK wenn 
das Gerät Daten gesandt hatte oder UNLISTEN sofern es Daten 
empfangen hatte. Jetzt ist der Bus wieder für die nächste 
Operation frei. 


Wie läßt sich nun die Bedienung des IEC-Bus in 
Maschinensprache programmieren ? 

Für alle Aufgaben stehen im Betriebssystem Unterprogramme zur 
Verfügung, die in der Sprungtabelle im obersten ROM-Bereich 


zusammengefaßt sind, siehe dazu die letzte Seite des 
ROM-Listings. 

Als Beispiel wollen wir uns ansehen, wie wir die 
Fehlermeldung der Floppy-Disk einlesen können. Schauen wir 


erst, wie dies in BASIC gemacht wird. 
10 OPEN 15,8,15 : REM öffnen des Fehlerkanals 


20 INPUT#15,A$,B$,Ct,D$ : REM Fehlermeldung holen 
30 PRINT Art;",";Bs;",";C$;",";D$ : REM und ausgeben 
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AO CLOSE 15 : REM Kanal schließen 


In BASIC ist dıes wegen des INPUT-Befehls nur im 
Programmmodus möglich. 

Hier ist nun ein Maschinenprogramm, das die gleichen Dienste 
tut. 


C0O00 A? 08 LDA #8 ; Beräteadresse der Floppy 
c002 85 BA STA FA 

C004 20 B4 FF JSR TALK ; Talk senden 

C007 AI &F LDA #15 + 860 ; Sekundäradr. 15 plus #60 
C009 85 B9 STA 5A 


Sekundäradresse für Talk 
Zeichen von Floppy holen 
auf Bildschirm ausgeben 


CooB 20 96 FF JSR SECTALK 
COOE 20 AS FF L JSR IECIN 
coll 20 D2 FF JSR PRINT 


nn 


cCo14 C9 OD CMP #13 ist es carriage return ? 
C0O1& DO F& BNE L nein, weitere Zeichen 
co1S 20 AB FF JSR UNTALK Untalk senden 

colA 60 RTS fertig 


Hier ein Ladeprogramm in BASIC: 


100 FOR I = 49152 TO 49179 
110 READ X : POKE 1,X : S=5+X : NEXT 

120 DATA 169, 8,133,186, 32,180,255,169,111,133,185, 32 
130 DATA 150,255, 32,165,255, 32,210,255,201, 13,208,246 
140 DATA 32,171,255, 96 

150 IF 5 <> 4169 THEN PRINT "FEHLER IN DATAS !!" ı END 
160 PRINT "OK '" 


Von BASIC aus läßt das Programm sich mit SYS 12#409& 
aufrufen. 

Mit einem etwas längeren Maschinenprogramm kann man auf 
einfache Weise auch das Inhaltsverzeichnis der Diskette 
anzeigen. Man erspart sich auf diese Weise das Directory mit 
LOAD "s",8 als BASIC-Programm zu laden, wobei jedoch das 
jeweilige BASIC-Programm im Speicher verloren geht. 


Dollarzeichen als Filename 


Co0O0 AY 24 LDA #"$" f 
C0oo2 85 FB STA #FB ;i speichern 
C0o04 A9 FB LDA KsFB ; Adresse des Filenamens 
COo0O& 85 BB STA FNADR 
CO0O8 A9 00 LDA #0 ; high Byte 
COoOA 85 BC STA FNADR+1 
COooC A9 O1 LDA #1 ; Länge des Filenamens 
COOE 85 B7 STA FNLEN 
CO1O AI 08 LDA #8 ; Gerätenummer der Floppy 
C012 85 BA sSTA FA 
COo14 A? 60 LDA #860 ; Sekundäradresse für LOAD 
CO1l& 85 B? sSTAa 5A 
Co18 20 DS F3 JSR SENDNAM ;‚ File mit Namen eröffnen 
colB AS BA LDA FA 
CO1iD 20 B4 FF JSR TALK ; Talk senden 
Co20 AS B7 LDA SA 
co22 20 96 FF JSR SECTALK ; Sekundäradresse senden 
c025 AI 00 LDA #0 
Cc027 85 90 STA STATUS ; Status löschen 
C029 AO 03 LDY #5 ; ersten 3 Byte überlesen 
CO2B 84 FB L1 5STY #FB ; als Zähler merken 
CO2D 20 AS FF JSR IECIN ; Byte von Floppy halen 

’ 


cC030 85 FC STA $FC und merken 


Cc0352 A4 90 LDY STATUS Status testen 


coS4 DO 2F BNE 14 

co3S& 20 AS FF JSR IECIN ; Byte von Floppy holen 
COS? A4 90 LDY STATUS ı Status testen 

COSB DO 28 BNE L4 

COSD A4 FB LDY $FB ;s zähler holen 

CO35F 88 DEY ; und erniedrigen 

C040 DO E? BNE Li 

C0O42 A& FC LDX $FC ; Byte zurückholen 

C044 20 CD BD JSR LNPRT : 16-Bit Zahl ausgeben 
C047 A9 20 LDA u" “ ; Zahl der belegten Blocks 
C049 20 D2 FF JSR PRINT ;s Leerzeichen ausgeben 
cCoaCc 20 AS FF LS JSR IECIN ; nächstes Byte holen 

COAF Ab 90 LDX STATUS ; Status testen 

c0o51 DO ı2 BNE L4 

c0oSS AA TAX ; Byte testen 

C054 FO O6 BEÜ L2 ; Null ? dann Zeilenende 
C05& 20 D2 FF JSR PRINT ı sonst ausgeben 

C0OS59 4C AC CO JMP LS ; und nächstes Zeichen holen 
COSC A? OD L2 LDA #15 ;5 Earriage return 

CoSE 20 D2 FF JSR PRINT ; ausgeben 

CO61 AO 02 LDY #2 ; zwei Bytes für Linkadresse 
CO65 DO C& BNE Li ; weitermachen 

C065 20 42 Fö L4 JSR CLSFIL ; Datei schließen 

CO68B 60 RTS 


Hier wieder das Ladeprogramm: 


100 FOR I = 49152 TO 49256 

110 READ X : POKE 1,% : S=S+X : NEXT 

120 DATA 169, 36,133,251,169,251,133,187,169, 0,133,1@8 
130 DATA 169, 1,133,183,169%, 8,133,186,169, 96,133,185 
140 DATA 32,213,243,165,186, 32,180,255,165,185, 32,150 
150 DATA 255,169, 0,133,144,160, 3,132,251, 32,165,255 
160 DATA 133,252,164,144,208, 47, 32,165,255,164,144,208 
170 DATA 40,164,251,136,208,233,166,252, 32,205,189,169 
180 DATA 32, 32,210,255, 32,165,255,166,144,208, 18,170 
190 DATA 240, &, 32,210,255, 76, 76,192,169, 13, 32,210 
200 DATA 255,160, 2,208,198, 32, 66,246, 96 

210 IF S <> 15343 THEN PRINT "FEHLER IN DATAS !!" : END 
220 PRINT "OK '" 


Der Aufruf von BASIC geschieht wieder mit SYS 12%#4096. Es 
wird dann das Inhaltsverzeichnis der Diskette auf dem 
Bildschirm angezeigt, ohne daß ein gespeichertes BASIC-Pro- 
gramm verloren geht. 


Statt des seriellen IEC-Bus kann es sich vor allem aus 
Geschwindigkeitsgründen lohnen, ein IEC-Bus Modul einzu- 
setzen, das auf den Memory Expansion Port gesetzt wird. Sie 
können dann sämtliche Peripheriegeräte der großen Commodore- 


geräte benutzen, wie z.B. die großen Diskettendoppellauf- 
werke. 


Bei der Programmierung des parallelen IEC-Bus ändern sich 
lediglich die Adressen der Routinen wie z.B. Ein- und Ausgabe 
eines Bytes auf den IEC-Bus oder Senden von TALK oder LISTEN. 


Programmieren Sie dagegen Ihre Ein- und Ausgabe auf den 
IEC-Bus über logische Dateien mit BASIN und BSOUT, (siehe 
Kapitel 6.3.) so sind überhaupt keine änderungen erforder- 
lich. 
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KAFITEL 7 : COMMODORE 64 - VC 20 - CBM 


7.1 Die Belegung der Zero-Page und weiterer wichtiger Bereiche 


hexauresse Dezımal Belegung 


06 


Fe 


Datenrıchtungsregister #ür Prozessorport 


0 { Prozessorport 

v2 r unbenutzt 

33-08 Termine Vektor für Umwandlung Fließkoaaa nach Fest 
05 - 06 Snars Vektor Umwandlung Fest nach Fließkonsa 

97 7 Suchzeichen 

68 8 Hochkonna-rlag 

9 F Speicher tür Spalte beın TAB-Befehl 

9A 0 Load = 0, Ver:ıfy = !, Flag des Interpreters 
»B tı Zeiger ın Eıngabepufter, Anzanl der Dıiaensionen 
ec 12 Flag für DIM 

0 13 Typtlag 800 = nuserisch, $FF « String 

DE 14 Flag fur Integer = $B0, Real = #00 

Ar I} Hochkonna-Flag bei LIST 

10 15 Flag für FN 

1 17 Flag für INPUT $00, GET $40, READ #98 

2 18 Vorzeichen ber ATN 

15 7 aktıves 1/0-Gerat 

14 - 15 29 - 21 Integer-Adresse, z.B. Zeılennuaaer 

Io 22 leıger auf Stringstack 

17-18 eg Zeiger aut zuletzt verwendeten String 
| 235 - 33 Stringstack 

22-235 14 - 37 Zeiger für dıverse Zwecke 

26 - 2A 38 - 42 Register für Funktionsauswertung und Arithaetik 
2B - 2C a3 - 44 Zeiger auf BASIC-Prograsastart 

2D - 2E 45 - 46 Zeıger auf Start der Varıablen 

?2F - 20 47 - 48 Zeiger auf Start der Arrays 

Se 322 49 - 50 Zeiger auf Ende der Arrays 

23-38 ji - 52 Zeiger auf Beginn der Strings 

3736 Sr - 54 Hılfszeiger für Strings 

37-29 55 - 56 Zeiger auf BASIC-RAM Ende 

37 - 3A 57 - 58 augenblickliche BASIC-Zeilennuaser 

SB 3C 59 - 60 vorherige BASIC-leilennunaer 

3b - 3E 61 - 62 leiger auf nächstes BASIC-Stateaent für CONT 
SF - 40 63 - 64 augendblickliche Zeılennuaner für DATA 

“1 - 42 65 - 66 Zeiger auf nächstes DATA-Element 

43-438 67 - 68 Zeiger auf Herkunft der Eıngabe 

45-46 69-70 Variablennane 

47-48 71-72 Variablenadresse 

39 - 5A 73-74 Zeiger auf Varıablenwert 

4B - 4C 7535-76 Iwıschenspeicher für Prograaazeıger 

40 77 Maske für Vergleichonerationen 

4E - 4F 78 - 79 Zeiger für FN 

30 - 53 80 - 83 Stringdescriptor 

54 84 Konstante $SAC JMP fur Funktionen 

55 - 56 85 - 86 Sprungvektor fur Funktionen 

57 - 58 87-91 Register für Arıthmetik, AkkußJ 

SC - 60 92 - 9 Register Tür Arıthaetik, Akkus4 

61 - 65 97 - 101 Flıießkoanaakkutl, FAC 
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Bexadresse 


6b 
67 
68 
69 
6E 
[13 
0 
71 
73 
TA 
[13 
” 
A 
92 
Er 
EL 
95 
26 
97 
98 
99 
9A 
9E 
°C 
°ıD 
gE 
IF 
AO 
a3 
a4 
AS 
Ab 
a7 
ac 
AE 
80 
B2 
B4 
B5 
B& 
B7 
B8 
BI 
BA 
BB 
80 
BE 
BF 
co 
cı 
c3 
C5 
Cb 
c? 
c8 


6D 


72 
BA 
7B 
ar 


A2 


AB 
AD 
Ll2 
Bl 
83 


BC 


c2 
ca 


Dezımal 


102 
103 
104 
105 
110 
rm 
112 
113 
115 
122 
139 
184 
145 
146 
147 
138 
149 
150 
151 
152 
153 
156 
155 
156 
157 
15B 
159 
150 
163 
164 
165 
1d5 
167 
172 
174 
176 
178 
180 
181 
182 
183 
184 
185 
186 
187 
189 
190 
191 
192 
193 
195 
197 
198 
199 
200 


109 


114 
138 
123 
145 


171 
175 
175 
177 
179 


188 


194 
196 


kelegung 


Vorzeichen von FAC 

lähler fur Folynoeausnertung 
Rungungsbyte fur FAC 

Flieflkommaakkuß?, ARG 

Vorzeichen von AR6 

Vergleichsbyte der Vorzeichen von FAL und ARG 
Rundungsbyte fur FAC 

leıger fur Polynanausnertung 

CHRGET - Routine, holt Zeichen aus BASIC-Text 
Prograanzeıyer 

letzter RND-kert 

Statuswort ST 

Flag fur Stop-Taste 

lertkonstante Fur Band 

Flag fur LOAD 400 oder VERIFY s01 

Flag over IEC-Ausgabe 

Ausgabeguffer fur IlEC-Bus 

Flag fur EOT vom Band enpfangen 
Imıschenspeicher fur Register 

Anzahl der offenen Fıles 

artıves Eingabegerät 

sktıves Ausgabegerät 

Parıtat fur Band 

Flag iur Byte enpfangen 

Flag fur Direkt-Aodus SB0, Prograna $00 
Band Pass | Checksuane 

Band Pass 2 Fehlerbarrertur 

Tıae 

Bitzahler tur serielle Ausgabe 

Zähler fur Band 

lähler zur Band schreiben 

Zeıger in Bandpuffter 

Arbeitspeicher fur Bandein/ausgabe 
Zeiger für Bandpufter und Scrollıng 
leıger auf Prograanende beı LOAD/SAVE 
leıtkonstanten fur Band-Tıaıng 

leıger auf Bandpuffer 

Bitzahler für Band 

nachstes Bıt fur RS 232 

Putfer für auszugebendes Byte 

Lange des Filenanens 

logısche Filenuaner 

Sesrundäradresse 

Gerätenuaner 

leıger aut Fılenaaen 

Arbeitsspeicher serielle Ein/Ausgabe 
Passzahler fur Band 

Puffer fur serielle Ausgabe 

Flag fur Bandaotar 

Startadresse für Eın/Ausgabe von Bıldschırn 
Endadresse fur Ein/Ausgabe voa Bıldschırn 
Nusner der gedrückten Taste, 64 = keine Taste 
Anzahl der gedruckten Tasten 

Flag für RVS-Modus 

zZeıienende fur Eıngabe 
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nexadresse 


ce 
ca 
c8 
cc 
co 
CE 
CF 
D) 
1 - 
D3 
D4 
D5 
06 
D7 
u8 
[9 - 
F3- 
FS - 
FT - 
rg - 


Ktlekeorsanse 


cf 
9100 
4190 
u200 
259 
026% 
026D 
0277 
0281 
0283 
0285 
0286 
0287 
60288 
09289 
028A 
0288 
O28C 
028D 
028€ 
H28F 
0291 
0292 
0293 
0294 
0295 
0297 
0298 
09299 
029B 
928C 
029D 


F2 
Fa 
Fö 
F& 
FA 


v10A 
O13E 
SırF 
6258 
2262 
026C 
0276 
0280 
9282 
0284 


02909 


0296 


029FA 


Derieal 


201 
202 
203 
204 
2U5 
2056 
207 
208 
209 
SL 
a2 
213 
214 
215 
216 


217.°= 


245 
245 
247 
249 


v.,. 


255 
256 
256 
512 
601 
ll 
621 
651 
641 
643 
645 
646 
647 
648 
649 
6509 
651 
652 
653 
654 
655 
657 
658 
659 
660 
661 
663 
664 
665 
667 
668 
669 


4 


242 
234 
246 
248 
259 


“ar0n4rtr 


266 
318 


656 


662 


666 


Eelegung 


Cursorzeıle fur Eıngabe 

Cursorspalte fur Eıngabe 

gedruckte Taste, Feine Taste = 64 

Flag #ur Cursor O=Cursor eın, I=Cursor aus 
lahler #ur Cursor blınken 

leıchen unter den Lursor 

Flag fur Cursor I= Eın-Phase, 9= Aus-Phase 
Flag fur Eıngabe von Tastatur oder Bıldschıra 
leıger auf Start der aktuellen Bildschirazeile 
Cursorspalte 

Flag !ur Hochkosaanodus 

Lange der Bıldschirazeıle 

Curscerze:le 

dıverse Zwecke 

Anzahl der Inserts 

MSB der Bıldschirezeiılenanfange 

leıger ın Farb-RAM 

leıger auf Tastatur-Dekodıertabelle 

Zeıger auf RS 232 Eingabeputfer 

leıger au: RS 2:2 Ausgabepuffer 


Puffer tür Umwandlung Flıedkomaa nach ASCII 
Speicher fur Korrektur bei Eandeingabe 
Prozessor Stack 

BASIC Eıngabepuffer 

Tabelle der logischen Fılenunaern 
Tabelle der Geratenuasern 

Tabelle der Sekundaradresse 
Tastaturpufler 

Start des BASIC-RAN 

Ende des BASIC-RAM 

Tıneout-Flag für seriellen IEC-Bus 
augenblicklıche Farbe 

Farbe unter dea Cursor 

High-Byte Vıdeo-RAN 

Länge des Tastaturpuffers 

Flag fur Repeatfunktıon fur alle Tasten 
Zahler für Repeat-Geschwindigkeit 
Zähler fur Repeat-Verzögerung 

Flag für Shift, Conaodore und CTRL (Bıt 0,1 und 2) 
Shıft-Flag 

Zeiger für Tastatur-Dekodierung 

Flag fur Shitt/Consodore gesperrt 

Flag tur Scrollen 

RS 232 Kontrollwort 

RS 232 Befehlswort 

Bıt-Tıaing 

RS 232 Status 

Anzahl der Datenbits für RS 232 

RS 232 Baud-Rate 

Zeiger auf eapfangenes Byte RS 232 
Zeiger auf Input von RS 232 

Zeiger auf zu übertragendes Byte RS 232 
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Hexadresse Derzıeal Belegung 


023E 670 Zeıger auf Ausgabe auf RS 232 

029F - 0240 571 - 672 Speicher tur IRO wahrend Bandbetrieo 
02A1 673 Cla 2 uMi-Flag 

0242 673 Cla ı Tıaer A 

02A3 675 CIA 1 Interruptflag 

0284 676 CIA I Flag tur Timer A 

02A5 677 Bildscrirazreile 

02As 678 Flag fur PAL- (1) oder NTSC-Version (0) 
02C0 - O2FE 704 - 766 Sprite 11 

0300 - 0301 768 - 76% sES8B Vektor fur BAS!C-Narastart 
0302 - 0503 770 - 771 $A38)3 Vextor tur Eıngabe eıner Zeıle 
0304 - 0305 772 - 773 sASTC Vektor tur Umwanalung ın’ Interpreteriode 
0306 - 0307 774 - 7175 SATIA Vertor fur Uowandlung in Klartext (LIST 
0308 - 0309 776 - 777 SATES Vektor für BASIC-Betehlsadresse holen 
030A - 0308 778 - 779 sAEBb Vekror tür Ausdruck ausnerten 
050C 780 Axku fir SYS-Betehl 

0300 7B1 I-Reg für SYS-Betehl 

030€ 782 Y-Reg tür 5YS-Betehl 

030F 783 Status-Regıster tür SYS-Befehl 

0310 84 s4C JNMP-Befenl fur USR-Funktiıon 

0511 - 0512 785 - 786 35248 USR-Vertor 

0514 - 0515 788 - 78? sEASL IRO-Vektor 

0316 - 0517 799 - 791 sFEöb BRL-Vertor 

0518 - 0319 792 - 793 sFEA7 NMI-Vektor 

031A - 051B 794 - 795 sF74A OPEN-Vektor 

0716 - 0310 798 - 797 57291 CLOSE-Vektor 

O031E - O3IF 798 - 799 sF20E CHKIN-Vektor 

0320 - 0321 800 - 991 sF220 CKOUT-Vektor 

0322 - 0525 802 - 805 sF3533 CLRCH-Vektor 

0324 - 0325 804 - 805 #F157 INPUT-Vektor 

0326 - 05327 808 - 807 sFICA OUTPUT-Vektor 

0328 - 0329 808 - 809 sF&6ED STOP-Vertor 

032A - 052 810 - Bl sFı3E GET-Vektor 

0326 - 0320 812 - 813 sF32F CLALL-Vektor 

032E - 032F 814 - 815 s3FE66 MNarastart-Vektor 

0330 - 0351 816 - 817 #FAAS LOAD-Vektor 

0332 - 0533 818 - 819 sF5ED SAVE-Vektor 

035C - 03FB 828 -1019 Bandpuffer 

0340 - 037E 832 - 894 Sprite 15 

0380 - OSBE 896 - 958 Sprite 14 

0360 - OSFE 969 -1022 Sprite 15 
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7.2 Die Adressen des BASIC-Routinen 


Der BASIC-Interpreter des Commodore 64 ist mit dem des VC 20 
identisch. Er ist lediglich in der Adresslage verschaben. Die 
Umrechnung einer Adresse des Commodore 64 in die 
entsprechende Adresse des VC 20 geschieht folgendermaßen: 

Bei Adressen von $SAO000 bis SBFFF wird einfach #2000 
dazuaddiert, aus $AB60 wird die Adresse $CB860 im VC 20. Bei 
Adressen von $E000 bis SES37A wird von der Commodore 64 
Adresse 3 abgezogen. Aus $SESOE wird die VC 20 Adresse $EJOB. 


Adresse Beschreibung 


AOOO Startvektor 

A002 NMI-Vektor 

ao0o4 "cbmbasıc' 

ADOC Adressen der BASIC-Befehle minus 1 

AOS2 Adressen der BASIC-Funktionen 

AOBY Hierarchiekodes und Adressen der BASIC-Operatoren 
AOgE Liste der BASIC-Befehlsworte 

ALIE BASIC-Fehlermeldungen 

AS28 Adressen der Fehlermeldungen 

A564 Meldungen des BASIC-Interpreters 

AZBA Stapelsuchroutine für FOR-NEXT und GDSUB 
ASBB Blockverschieberoutine 

SFR prüft auf Platz im Stapel 

AA0B schafft Platz im Speicher 

AASS Ausgabe von ‘out of memmory’ 

A457 Fehlermeldung ausgeben 

A697 Break-Einsprung 

aga74 Ready-Einsprung 

AA890 Eingabe-kKarteschleife 

AAIC Löschen und Einfügen von Programmzeilen 
ASSS BASIC-Programmzeilen neu binden 

AS&O holt eine Zeile in den Eingabepuffer 
A571 Ausgabe von "string too long’ 

A579 Umwandlung einer Zeile in Interpreterkode 
Ab13 Startadresse einer BASIC-Zeile suchen 
A642 BASIC-Befehl NEW 

A6SE BASIC-Befehl CLR 

AABE Programmzeiger auf BASIC-Start setzen 
AsIC BASIC-Befehl LIST 

A7ıT Interpreterkode in Befehlswort umwandeln 
A742 BASIC-Befehl FOR 

A7AE Interpreterschleife, führt BASIC-Befehle aus 
ATED fuhrt einen BASIC-Befehl aus 

ABID BASIC-Befehl RESTORE 

AB2C bricht Programm bei gedrückter Stop-Taste ab 
AB2ZF BASIC-Befehl STOP 

ABSL BASIC-Befehl END 

ABS7 BASIC-Befehl CONT 

ABT7I BASIC-Befehl RUN 

ABAS BASIC-Befehl GOSUB 

ABAO BASIC-Befehl GOTO 

ABD2 Basic-Befehl RETURN 

ABFB BASIC-Befehl DATA 

AIO& sucht nächstes Statement 

AIOF sucht nächste Zeile 

A728 BASIC-Betfehl IF 

A9ISEB BASIC-Befehl REM 
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Adresse 


AFAB 
AI&B 
AIAS 
AABO 
RAAB 
AAAO 
ABIE 
ABSE 
AB4D 
AB7B 
ABAS 
ABBF 
ACOS 
ACFC 
ADID 
ADBA 
ADBD 
ADBF 
AD97 
ADIE 
AEBS 
AEAB 
AED4 
AEFI 
AEFT7 
AEFA 
AEFD 
AEFF 
AFOB 
AF2B 
AFE6 
AFEI 
BO1l& 
BOB1 

B11l3 
B194 
B1AS 
B1AA 
B245 
B248 
B34C 
B37D 
B3S7E 
BSA& 
BSAB 
BSAE 
BSB3 
BSEI 

B3F4 
BA65 
B475 
B407 
BS2&6 
B6SD 
B6oAS3 
B6EC 
B700 
B72C 
B737 


Beschreibung 


BASIC-Befehl ON 

sucht Adresse einer BASIC-Zeile 
BASIC-Befehl LET 

BASIC-Befen]l PRINT# 

BASIC-Befehl CMD 

BASIC-Befenl PRINT 

String ausgeben 

Leerzeichen bzw. Cursor right ausgeben 
Fehlerbehandlung bei Eingabe 
BASIC-Befehl GET 

BASIC-Befehl INPUT4 

BASIC-Befehl INPUT 

BASIC-Befehl READ 

"?extra ignored’ und '?redo from start‘ 
BASIC-Befehl NEXT 

FRMNUM holt Ausdruck und prüft auf numerisch 
prüft auf numerisch 

prüft auf String 

Ausgabe von 'typ mismatch‘ 

FRMEVL holt und wertet beliebigen Ausdruck aus 
arithmetischen Ausdruck holen 
Fließkommakonstante Pi 

BASIC-Befehl NOT 

holt Ausdruck in Klammern 

prüft auf "Klammer zu’ 

prüft auf 'Klammer auf’ 

prüft auf 'Komma’ 

prüft auf Zeichen im Akku 

Ausgabe von 'syntax error‘ 

holt Variable 

BASIC-Befehl OR 

BASIC-Befen]l AND 

Vergleichsoperationen 

BASIC-Befehl DIM 

prüft auf Buchstabe 

berechnet Zeiger auf erstes Arrayelement 
Fließkommakonstante -32768 

FAC nach Integer wandlen 

Ausgabe von 'bad subscript'‘ 

Ausgabe von "illegal quantity’ 
berechnet Arraygröße 

BASIC-Funktion FRE 

BASIC-Funktion POS 

Test auf Direkt-Modus 

Ausgabe von illegal direct’ 

Ausgabe von 'undef 'd function’ 
BASIC-Befehl DEF 

FN-Syntax prüfen 

BASIC-Funktion FN 

BASIC-Funktion STR$ 

Stringverwaltung, Zeiger auf String berechnen 
String einrichten 

Garbage Collection, nichtgebrauchte Strings entfernen 
Stringverknüpfung ’+* 

Stringverwaltung FRESTR 

BASIC-Funktion CHR$ 

BASIC-Funktion LEFT$ 

BASIC-Funktion RIGHT? 

BASIC-Funktion MID$ 
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Adresse Beschreibung 


B77C BASIC-Funktion LEN 

B782 Stringparameter holen 

B78B BASIC-Funktion ASC 

B79B Holt Byte-Ausdruck (O0 bis 255) 

B7AD BASIC-Funktion VAL 

B7EB Holt Adresse (0 bis 65535) und Byte-Wert (0 bis 255) 
B?7FT7 FAC nach Adressformat wandlen (Bereich O bis 65533) 
BBSOD BASIC-Funktion PEEK 

B824 BASIC-Befehl POKE 

B82D BASIC-Befehl WAIT 

B849 FAC = FAC + 0.5 

BBSOo Minus FAC = Konstante (A/Y) — FAC 

Ba5S Minus FAC = ARG - FAC 

B867 Flus FAC = Konstante (A/Y) - FAC 

BBE6A Plus FAC = ARG + FAC 

BITE Ausgabe von ’overflow' 

BYBC Fließkommakonstanten für LOG 

BIEA BASIC-Funktion LOG 

BAZO Multiplikatian FAC = Konstante (A/Y) = FAC 
BA2B Multiplikation FAC = ARG # FAC 

BASC ARG = Konstante (A/Y) 

BAE2 FAC = FAC # 10 

BAFF Fließkommakonstante 10 

BAFE FAC = FAC / 10 

BBOF FAC = Konstante (A/Y) / FAC 

BB12 FAC = ARG / FAC 

BBBA Ausgabe von "division by zera’ 

BBA2 FAC = Konstante (A/Y) 

BBC4 Akku#4 = FAC 

BBCA Akkut3 = FAC 

BBDO Variable = FAC 

BBFC FAC = ARG 

BCOC ARG = FAC 

BC1B FAC runden 

BC2B Vorzeichen von FAC holen 

BC39 BASIC-Funktion SGN 

BC58 BASIC-Funktion ABS 

BCSB Konstante (A/Y) mit FAC vergleichen 

BC9B Umwandlung FAC nach Integer 

BCECC BASIC-Funktion INT 

BCFS Umwandlung ASCII nach Fließkomma 

BDBS Fließkommakonstanten für Fließkomma nach ASCII 
BOC2 Ausgabe der Zeilennumer bei Fehlermeldung 
BDCD Positive Integerzahl (0 bis 65535) ausgeben 
BDDD FAC nach ASCII-Format wandeln 

BFii Fließkommakonstante 0.5 

BF16 Binärzahlen für Umwandlung FAC nach ASCII 
BF71 BASIC-Funktion SOR 

BF7B Potenzierung FAC = Konstante (A/Y) hach FAC 
BF7B Potenzierung FAC = ARG hoch FAC 

BFBF Fließkommakonstanten für EXP 

BFED BASIC-Funktion EXP 

E043 Poalynomberechnung 

EOS9 Pol ynomberechnung 

EO8D Fließkommakonstanten für RND 

E097 BASIC-Funktion RND 

E107 Ausgabe von 'break‘ 

E1OC BSQOUT ein Zeichen ausgeben 

Ei1l2 BASIN ein Zeichen empfangen 
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Adresse Beschreibung 


E118 CKOUT Ausgabegerät festsetzen 
EilE CHKIN Eingabegerät festsetzen 
£124 GETIN ein Zeichen holen 

E12A BASIC-Befehl SYS 

E156 BASIC-Befehl SAVE 

E165 BASIC-Befehl VERIFY 

E168 BASIC-Befehl LOAD 

EiBE BASIC-Befehl OPEN 

EıC7 BASIC-Betehl CLOSE 

E1D4 Parameter fur LOAD und SAVE holen 
E219 Parameter für OPEN holen 


E264 BASIC-Funktion CDS 
EZ6B BASIC-Funktion SIN 


E2B4 BASIC-Funktion TAN 

E2EO Fließkommakonstanten fur SIN und COS 
ESOE BASIC-Funktion ATN 

ESSE Fließkommakonstanten für ATN 


ES7B BASIC-NMI-Einsprung 
E394 BASIC-Kaltstart 


ESA2 Kopie der CHRGET-Routine 
ESBA Anfangswert fur RND-Funktion 
ESBF RAM tür BASIC ınitıalisieren 
E447 Tabelle der BASIC-Vektoren 
E53 BASIC-Vektoren laden 
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Vergleichstabelle VE 20 - Commodore 64 


vC 20 


Beschreibung 


Meldungen des Betriebssystems 

wartet auf Commodore-Taste 
Konstanten fur RS 232 Timing 

holt BASIC-Adresse des CIAs bzw. VIAs 
holt Bildschirmformat Zeilen/Spalten 
Cursor setzen bzw. Cursorposition holen 
Bildschirm-Reset 

Bildschirm löschen 

Cursor Home 

Videocontroller initıalisieren 
Zeıchen aus Tastaturpuffer holen 
Warteschleife für Tastatureingabe 
eın Zeichen vom Bildschirm holen 
testet auf Hochkomma 

MSB für Zeilenanfänge berechnen 
Tabelle der Farbkodes 

Bildschirm scrollen 

Zeile nach oben schieben 
Bildschirmzeile löschen 

Zeichen und Farbe auf Bildschirm setzen 
Zeiger auf Farb-RAM berechnen 
Interrupt-Routine 

Tastaturabfrage 

Früfung auf Shift, CTRL und Commaodore-Taste 
Zeiger auf Tastatur-Dekodiertabellen 
Dekodiertabellen 

Prüfung auf Steuerzeichen 

Dekodi ertabellen 

Konstanten für Videocontroller 

"load (cr) run (or) 

Tabelle der LSB der Bildschirmanfänge 
TALK senden 

LISTEN senden 

ein Byte auf IEC-Bus ausgeben 
Sekundäradresse für LISTEN senden 
Sekundäradresse für TALK senden 
UNTALKF. senden 

UNLISTEN senden 

ein Byte vom IEC-Bus holen 
Verzögerung eine Millisekunde 

RS 252 Ausgabe 

Anzahl der RS 232 Datenbits berechnen 
Ausgabe in RS 232 Puffer 

GET von RS 252 

Timer für IEC-Timeout setzen 
Fehlermeldungen des Betriebssystems 
Meldungen ausgeben 

BASIN ein Zeichen holen 

BSOUT ein Zeichen ausgeben 

CHKIN festlegen des Eingabegeräts 
CKOUT festlegen des Ausgabegeräts 
CLOSE 

logische Filenummer suchen 
Fileparameter setzen 

CLALL schließt alle 1/0-Kanäle 
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64 


F33S3 
FS54A 
F4A9E 
FSAF 
FSD2 
FSDD 
FößrF 
F69B 
F&DD 
F6EA 
F&ED 
FöFB 
F72C 
F76A 
F7DO 
F7D7 
F7EA 
FBOD 
F817 
FOZE 
F838 
FBa1 
FBAA 
F864 
FB6B 
FBBE 
FOEL 
F92C 
FB97 
FBA& 
FBCD 
FCBB 
FCCA 
FCD1 
FCDB 
FCE2 
FDO2 
FD1O 
FD15 
FD30 
FDSO 
FDIFB 
FDFF 
FEOO 
FEOT 
FE1B 
FEIC 
FE21 

FE2S 
FE34 
FE4S 
FEC2 
FF48 
FFB1 


vc 20 


FSFS 
FAa0A 
FS42 
F647 
F&6bA 
F&75 
F728 
F734 
F76&0 
F767 
F770 
F77E 
FIAF 
F7E7 
FB4D 
F854 
F8647 
FBBA 
F894 
FBAB 
F8B7 
FBCO 
F8C9 
FBEA 
FBEA 
FIZF 
F94AB 
F9BE 
F&EDB 
FBEA 
FCOB 
FCF& 
FDOB 
FD11 
FDIB 
rFD22 
FDSF 
FDAD 
FDS2 
FD&D 
FDBD 
FD6D 
FE47 
FESO 
FEST 
FE6& 
FE&A 
FEF& 
FE7S 
FEB2 
FEAI 
FFSC 
FF72 
FFOA 


Beschreibung 


CLRCH schließt 1/0-Kanal 

OPEN 

LOAD 

"searching for filename’ ausgeben 
“loading/verifying’ ausgeben 

SAVE 

"saving filename’ ausgeben 

UDTIM laufende Zeit erhöhen 

Time holen 

Time setzen 

Stop-Taste abfragen 

Fehlermeldungen des Betriebssystems ausgeben 
Programmheader vom Band lesen 

Header auf Band schreiben 

Startadresse des Bandpuffers holen 
Start und Endadresse des Bandpuffers setzen 
Bandheader nach Namen suchen 
Bandpufferzeiger erhöhen 

wartet auf Bandtaste für lesen 

frägt Bandtaste ab 

wartet auf Bandtaste für schreiben 
Block vom Band lesen 

Programm vom Band laden 

Bandpuffer auf Band schreiben 

Block bzw. Programm auf Band schreiben 
1/0-AbschluN abwarten 

testet auf Stop-Taste 
Interrupt-Routine für Band lesen 
Bitzähler fur serielle Ausgabe setzen 
ein Bıt auf Band schreiben 
Interrupt-Routine für Band schreiben 
IRQ-Vektor setzen 

Bandmotor ausschalten 

prüft auf Erreichen der Endadresse 
Adresszeiger erhöhen 

RESET 

prüft auf ROM in $B000 bzw. $AOOO 
ROM-Modul Identifizierung 

Hardware und 1/D Vektoren setzen bzw. holen 
Tabelle der Hardware und 1/D-Vektoren 
Arbeitsspeicher initialisieren 

Tabelle der IRQ-Vektoren 

Parameter für Filenamen setzen 
Parameter für aktives File setzen 
Status holen 

Flag für Meldungen des Betriebssystems setzen 
Status setzen 

Timeout-Flag für IEC-Bus setzen 
RAM-Obergrenze setzen bzw. holen 
RAM-Untergrenze setzen bzw. holen 
NMI-Routine 

Konstanten für RS 232 Baud-Rate 
Interrupthandler 

Sprungtabelle der Betriebssystem-Routinen 
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7.4 Vergleichstabelle CBM B0O0O - Commodore 64 
Um die übertragung von Maschinenprogrammen, die für die 
Commodore-Rechner der 8000er Serie geschrieben wurden, auf 


den Commodore 64 zu erleichtern, wurden die entsprechenden 


Adressen 


des 


BASIC-Interpreters von CBM 8000 und C 54 


gegenübergestellt. 


8000 


BOOO 
BOö& 
BO94 
BOB2 


B2OD 
B322 
BSSO 
B395 
BSCD 
BSCF 
BSFF 
B406 
BABö 
B4E2 
BAFB 
BSAS 
BSD2 
BSEE 
B622 
BASO 
B6BS 
B6öDE 
B74A 
8785 
B7B7 
B7C6 
B7EE 
B808 
BB1S 
BBSO 
BB5D 
B8895 
BO9I1 
B894 
BBB3 
BBC6 
BED& 
BBF& 
B9SO 
BABB 
BABE 
BAAB 
BB1D 
BBaC 
BB7A 
BBAA 
BBBE 
BCF7 
BD19 
BDa4 
BD87 


64 


AOOC 
AoS2 
AOBO 
AOgE 
AIIE 
ASBA 
ASBO 
ASFB 
AASS 
Aa37 
na7a 
A480 
AS33 
ASs0 
A579 
A613 
A642 
AsSE 
A6&BE 
A69C 
A717 
A742 
ATAE 
ATED 
ABLD 
AB2C 
ABS7 
A871 
ABS 
ABAO 
AaD2 
ABFB 
A9O& 
A909 
A92B 
A9SB 
A9AB 
A96B 
A9AS 
AABO 
AAB6 
AAAO 
ABIE 
ABAD 
AB7B 
ABAS 
ABBF 
ACFC 
ADID 
ADBA 
AD8D 


Bedeutung 


Adressen der BASIC-Befehle (minus I) 
Adressen der BASIC-Funktionen 
Hierarchiekodes und Adressen der BASIC-Operatoren 
Liste der BASIC-Befehlsworte 
BASIC-Fehlermeldungen 

Stapelsuchroutine für FOR-NEXT und GDSUB 
Blockverschieberoutine 

prüft auf Platz im Stack 

Ausgabe von ’out of memory’ 
Fehlermeldung ausgeben 

Ready-Modus 

Eingabe-Warteschleife 
BASIC-Programmzeilen neu binden 

Holt eine Zeile in den Eingabepuffer 
Umwandlung einer Zeile in Interpreterkode 
sucht eine BASIC-Zeile 

BASIC-Befehl NEW 

BASIC-Befehl CLR 

Programmzeiger auf BASIC-Start setzen 
BASIC-Befehl LIST 

Interpreterkode in Befehlswort umwandeln 
BASIC-Befehl FOR 

Interpreterschleife, führt BASIC-Befehle aus 
führt einen BASIC-Befehl aus 
BASIC-Befehl RESTORE 

STOP und END 

RASIC-Befehl CONT 

BASIC-Befehl RUN 

BASIC-Befehl GODSUB 

BASIC-Befehl GOTO 

BASIC-Befehl RETURN 

BASIC-Befehl DATA 

sucht nächstes Statement 

sucht nächste Zeile 

BASIC-Befehl IF 

BASIC-Refehl REM 

BASIC-Befehl ON 

sucht Adresse einer BASIC-Zeile 
BASIC-Befehl LET 

BASIC-Befehl PRINT# 

BASIC-Befehl CMD 

BASIC-Befenl PRINT 

String ausgeben 

Fehlerbehandlung bei Eingabe 
BASIC-Befehl GET 

BASIC-Befehl INPUT# 

BASIC-Befehl READ 

'2extra ignored’ und '?redo from start‘ 
BASIC-Befehl NEXT 

FRMNUM holt Ausdruck und prüft auf numerisch 
prüft auf numerisch 
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8000 64 Bedeutung 


BD89 ADBF prüft auf String 

BD9S ADIF Ausgabe von 'type mismatch’‘ 

BD9IB ADIE FRMEVL holt und wertet beliebigen Ausdruck aus 
BDDi AEBS nächsten Element eines Ausdrucks holen 
BEARO AEAB Flıeßkommakonstante Pi 

BEE£EY AEFI holt arithmetischen Ausdruck ın Klammern 
BEEF AEF7 prüft auf 'Klammer zu’ 

BEF2 AEFA prüft auf "Klammer auf 

BEFS AEFD prüft auf 'Komma’ 

BEF7 AEFF pruft auf Zeichen im Akku 

BFOO AFOB Ausgabe von ‘syntax error’ 

BFOC AF2B holt Variable 


C08& AFE& BASIC-Operator OR 
C0897 AFE9I BASIC-Operator AND 


COB&ö BO1l& Vergleichsoperationen 

cı2tı BOB1 BASIC-Befehl DIM 

C1Bö B11l3 prüft auf Buchstabe 

c2D9 B1AS Fließkommakonstante -32768B 
C2DD BI1AA FAC nach Integer wandeln 

c370 B245 Ausgabe von "bad subscript' 
C373 8248 Ausgabe von "illegal quantity’ 
C477 BS34C berechnet Arraygröße 

cang 857D BASIC-Funktıon FRE 

c4c9 BS9IE BASIC-Funktıon POS 

CAcF B3A& Test auf Direkt-Modus 

canc BSBS3 BASIC-Befehl DEF 

C50A BSE1 FN-Syntax prüfen 

c51D B3F4 BASIC-Funktion FN 

CS8E B465 BASIC-Funktion STR$ 

C59E B475 Stringverwaltung, Zeiger auf String berechnen 
c5BO B497 Strıng einrıchten 

Cb6sA BS26& Garbage collection 

C7AarF B6SD Stringverknupfung 

C7BS BöAS Stringverwaltung, FRESTR 

c822 B6EC BASIC-Funktion CHRS$ 

[836 B700 BASIC-Funktıon LEFT$ 

cC862 B72C BASIC-Funktion RIGHTS 

C86D B737 BASIC-Funktion MID#E 

C8B2 B77C BASIC-Funktion LEN 

C8B8 B782 Strıngparameter holen 

cec1 5788 BASIT-Funktıon ASC 

C8D1 B78B holt Byte-Ausdruck (O bis 255) 
CBES B7AD BASIC-Funktion VAL 

c921 B7EB holt Adresse und Byte-Wert 
Cc?2D B7F7 FAC nach Adressformat wandeln (Bereich O bis 65535) 
C943 BBOD BASIC-Funktion PEEK 

C95A B824 BASIC-Befehl POKE 

C963 B82D BASIC-Befehl WAIT 


C97F 8849 FAC = FAC + 0.5 
C9B6 BBSO Minus FAC Konstante (A/Y) - FAC 


C989 B855 Minus FAC = ARG —- FAC 

C99D B867 Plus FAC = Konstante (A/Y) + FAC 

C9IAO BB6A Plus FAC = ARG + FAC 

cAB4 BITE Ausgabe von 'overflow' 

CAF2 BIBC Fließkommakonstanten für LOG 

CB20 BIEA BASIC-Funktion LOG 

CBS5E BA2B Multiplikation FAC = Konstante (A/Y}) = FAC 
CBöl BA2B Multiplikatıon FAC = ARG *#= FAC 

CBC2 BABC ARG = Konstante (A/Y 
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8000 


cc18 
cE2F 
cc34 
CC4S 
CC4A 
CCCO 
CCD8 
CCFD 
CDoS 
CDOA 
CD32 
CcD32 
CDS1 
CD61 
CDöF 
CD8SE 
CcD91 
CDD1 
CEO2 
CE29 
CEEF 
CF78 
CF9S3 
Doc2 
DOC? 
D108 
piı12 
DI1S 
D156 
D184 
DıD? 
DIED 
0221 
D229 
D282 
D289 
D2D2 
D2FE 
D3S2C 
D3SSC 
D599 
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BAE2 
BAFF 
BAFE 
BBOF 
BB12 
BBBA 
BBA2 
BBC4A 
BBCA 
BBDO 
BBFC 
BCOC 
BC1B 
BC2B 
BC39 
5C58 
BCSB 
BC9B 
BCECC 
BCFS 
BDB3 
BDC2 
B8DDD 
BFil 
BFI& 
BF71 
BF78 
BF7B 
BFBF 
BFED 
E043 
E059 
EOAD 
E097 
E264 
E26B 
E2B4 
EZEO 
ESOE 
E3SE 
ESA2 


Bedeutung 


FAC = FAC * 10 

Fließkommakonstante 10 

FACE = FAC / 10 

Division FAC = Konstante (A/Y) / FAC 
Divısion FAC = ARG / FAC 

Ausgabe von 'dıvision by zero’ 

FAC = Konstante (A/Y) 

Akkus#4 = FAC 

Akku#3 = FAC 

Variable = FAC 

FAC = ARG 

ARG = FAC 

FAC runden 

Vorzeichen von FAC holen 
BASIC-Funktion SGN 

BASIC-Funktion ABS 

Konstante (A/Y} mit FAC vergleichen 
FAC nach Integer wandeln 
BASIC-Funktion INT 

Umwandlung ASCII nach FAC 
Fließkommakonstanten für Fließkomma nach ASCII 
Ausgabe der Zeilennummer bei Fehlermeldung 
FAC nach ASCII-Format wandeln 
Fließkommakonstante 0.5 

Binarzahlen für Umwandlung FAC nach ASCII 
BASIC-Funktion SQR 

Potenzierung FAC = Konstante (A/Y) hoch FAC 
Potenzierung FAC = ARG hoch FAC 
Fließkommakonstanten für EXP 
BASIC-Funktion EXP 
Polynomberechnung 

Polynomberechnung 
Fließkommakonstanten für RND 
BASIC-Funktion RND 

BASIC-Funktion COS 

BASIC-Funktion SIN 

BASIC-Funktion TAN 
Fließkommakonstanten für SIN und COS 
BASIC-Funktion ATN 
Fließkommakonstanten für ATN 

Kopie der CHRGET-Routine 
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7.5 Umsetzung von VC-20 Programmen auf Commodore 64 


Der Commodore 54 ist als der große Bruder des VC-20 schon in 
seinem äußeren erkennbar. Allerdings steckt in ihm einiges mehr, 


als der "Kleine" zu bieten hat. Angafangen bei der 
hochauflösenden Farbgraphık, über die Sprites, bis hin zur 
Möglichkeit der Tonerzeugung mittels Synthesizer - alles das 


unterscheidet ihn vom VC-20. Trotzdem möchte man natürlich nicht 
auf das Angebot der VC-20 Software verzichten. 


Leider ıst es nicht möglich, die Module oder Kassetten des VC-20 
einfach zu übernehmen. Es gibt aber genügend Programmlistings, 
die man sicher!ich gerne auf den Commodore 64 übertragen möchte. 


Man muß hier zwischen zwei verschiedenen Progr ammarten 
unterscheiden: 


1.) Die Maschinenprogr amme 


Bei diesen Programmen ıst die Adaption zwar nicht sehr schwierig, 
aber trotzdem komplizierter als beı einfachen BASIC Programmen. 
Um diese Programme adaptieren zu können, müssen Sie die 
Vergleichstabelle (Kapitel 7.1) mit zu Rate ziehen. Treffen Sie 
zum Beispiel an eine Sprungadresse, die auf eine Adresse im ROM 
zeigt, heißt es, dıese Adresse in der Vergleichstaäbelle des 
Commodore %&4 zu finden, um dann diese ın dem Programm gegen die 
Adresse des VC-20 auszutauschen. Generell läßt sich sagen, daß 
man den Unterschied zwischen den einzelnen Adressen auch selber 
berechnen kann. 


So ist zum Beispiel die Adresse bei VC-20, die die Anfangsadresse 
der BASIC GET-Routine ıst, Hex CB7B. Beim Commodore 64 liegt sie 
um genau Hex 2000 niedriger, also ab Adresse $AB7B. Ab EOOO muß 
beim Commodore 64 der Wert 3 subtrahiert werden, um die Adresse 
beim VC-20 zu erhalten. 


2.) Die BASIC Programme 


Bei BASIC Programmen sind die Änderungnen nicht so kompliziert. 
An erster Stelle ist hier natürlich das andere Bildschirmforaat 
zu nennen. Hier müssen Sie darauf achten, daß Sie entweder das 
Bildschirmformat der VC-20 Programme völlig neu gestalten, oder 
aber nach den 22 Zeichen ein RETURN einzufügen, damit die anderen 
Zeichen nicht in die selbe Zeile rutschen. 


Die einzige Schwierigkeit bei den BASIC Programmen bilden die 
POKE Befehle. Hier muß man zwischen 2 Arten unterscheiden. 


1.) POKE Befehle in den Bildschirmspeicher 


Hier müssen Sie die ganzen Adressen ändern. Vergleichen Sie 


hierzu die Tabellen der Zeichengeneratoren und der 
Bildschirmseite. 


2.) Werte die das ROM des VC-20 betreffen 


Datzu müssen Sie genau so vorgehen, wie wir es eben bei 


der 
Änderung der Maschienprogramme besprachen haben. 
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7.6 Umsetzung von CBM Programmen auf den Commodore 64 


Vielen Leuten ıst es überhaupt noch nicht aufgefallen, daß es 
eine sehr große Ähnlichkeit zwischen dem Commodore 64 und seinen 
großen Kollegen gibt. Es ist so natürlich auch möglich, Programae 
von diesen Rechnern, wie zum Beispiel vom schon legendären PET, 
zu übernehmen. Bei den meisten Geräten haben wir sogar das selbe 
Bildschirmformat. Natürlich kommen wir auch hier nicht ohne 
gewisse Änderungen aus. Doch haben alle Commodore dieser Klasse 
einen Vorteil: Ihre BASIC Version ist voli übertragbar. Das 
heißt, daß Sie keine Änderungen in BASIC Programmen machen 
müssen, sofern es keine POKE Befehle sind. 


Für diese Befehle, müssen Sie die entsprechenden Adressen bei den 


Commodore Rechnern kennen, die sich vom Commodore 64 
unterscheiden. Es gibt bekanntlich eine große Auswahl an 
Literatur über die PET/CBM Geräte. In unserem 
Literaturverzeichnis finden Sie die entsprechenden Bücher 
aufgeführt. 


Generell ist zu sagen: BASIC und Maschinensprache unterscheiden 
sich bei diesen Geräten nicht. Der 4510 ist voll mit dem 6502 
kompatibel. Die einzigen Änderungen beziehen sich daher auf die 
unterschiedlichen Einsprungadressen zu den verschiedenen Routinen 
im Betriebssystem bzw. die unterschiedlichen Adressen der 
Bildschirmspeicher und die Vektoren der Zeropage. 


Wenn Sıe dieses beachten, können Sie mit etwas übung ohne größere 
Schwierigkeiten alle Programme der PET/CBM/VC-20 Geräte auf den 
Commodore 64 anwenden. Und denken Sie daran: Durch eine 
Erweiterung dieser Programme, können Sie sogar Farbe, Ton und 
Graphık des Commodore 64 ausnutzen - und welcher PET/CBM hat das 
schon zu bieten ? Außerdem steht Ihnen beie Commodore 64 ein mit 
64KB RAM ausreichend großer Arbeitsspeicher zur Verfügung, so daß 
dıe Programm nach den Änderungen auf dem Commodore 64, besser 
sein können als vorher. 


Noch ein Tip am Rande: VC-20 Kassetten lassen sich auf dem 
Commodore &4 dann lesen, wenn diese zuerst auf einen CBM Rechner 
eingeladen und danach wieder direkt auf Kassette abgespeichert 
wurden. 


Sie haben aber auch die Möglichkeit auf dem Commodore 654 einen 
CBH zu simulieren. Diese sogenannte Eaulation läßt sich mit 
folgendem Programm verwirklichen: 


10 POKE 56576,&: REM CBM-BILDSCHIRM NACH 352768 

20 POKE 53272,4 

30 POKE 648,128: REM BASIC ERFAHRT BILDSCHIRMADRESSE 

40 POKE 1024,0: POKE 44,4: POKE 56,128: REM BASIC START/ENDE 
50 PRINT CHR$ (147) 

60 NEW 


Viel Spaß bei der Emulation. 
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Kapitel B Commodore 44 ROM-Listing 


8.1 Die Nutzung des Commodore 54 ROM-Listing 


Auf den folgenden über 100 Seiten finden Sie nun das 


Assemblerlisting des gesamten Betriebssystems und des 
BASIC-Interpreters Ihres Commadore 64. Wollen Sie tiefer in 
die Arbeitsweise Ihres Rechners eindringen, so können Sie 


sich durch ein Studium dieses Listings viele Anregungen für 
die eigene Assemblerprogrammierung halen. Den größten Nutzen 
werden Sie Jedoch daraus ziehen können, wenn Sie die Routinen 
des Betriebssystems und des BASIC-Interpreters in Ihren 
eigenen Programmen als Unterprogramme verwenden. Sie können 
sich dadurch viel Programmierarbeit ersparen. Wie findet man 
nun am schnellsten die benatigten Routinen? Die Adressen 
aller BASIC-Befehle stehen zu Beginn des BASIC-Interpreters 
als Sprungtabelle auf die eigentlichen Routinen. Wollen Sie 
sich z.B. den G0TO-Befehl näher ansehen, so finden Sie in der 
Sprungtabelle die Adresse S$ABAO. Dort steht dann der 
eigentliche Befehl. Wollen Sie arithmetische Aufgaben im 
Fließkommaformat durchführen (so wie die normalen Variablen 
gespeichert werden), so finden Sie die benötigten Routinen ab 
Adresse $B800 und folgende. Sehen Sie dazu auch Kapitel 5. 
Das Betriebssystem beginnt ab Adresse $E400. Zuerst steht 
dort der Bildschirmeditor, anschließend Tastaturbedienung und 
Interruptroutine. Es folgen dann Routinen zur Ein- Ausgabe 
*tür den seriellen IEC-Bus, RS 232 Schnittstelle smie die 
Bedienung des Kassettengeräts. Auch hier sind die wichtigsten 
Routinen wieder als Sprungtabelie zusammengefaßt, diesmal am 
Ende des RüOMs ab Adresse $FFBil. Im Kapitel 7 sind die 
Einsprungpunkte noch einmal aufgeführt. 


Am Beispiel der Blockverschieberoutine des BASIC-Interpreters 
soll einmal gezeigt werden, wie man solche Routinen nutzt. 


Oft steht man bei der Maschinenprogrammierung vor der 
Aufgabe, einen Speicherbereich zu verschieben. Das kann z.B. 
ein Grafikbild oder eine Tabelle sein. Anstatt die 


Verschiebung nun selber zu programmieren und auszutesten, 
kann man auf eine bestehende Routine zurückgreifen. Die ganze 
Aufgabe reduziert sich jetzt auf die Parameterübergabe und 
den Aufruf des Unterprogramms. Die Einsprungadresse ist 
$ASBF. Wollen wir z.B. den Bereich von $24BA bis $29C0 
einschließlich so verschieben, daß er bei $3000 endet. Dazu 
müssen die Adressen des alten Blockanfangs und des Endes 
sowie die Adresse des neuen Blockendes übergeben werden. In 
unserem Falle sähe das so aus: 


LDA #$BA 

LDY #s24 ; Zeiger auf alten Blockanfang 
STA $5F 

STY 360 

LDA #5sC1 

LDY #329 ; Zeiger auf altes Blockende + I 
STA #5A 

STY $5B 
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LDA #301 

LDY #830 ; Zeiger auf neues Blockende + 1 
STA #58 

STY 3159 

JSR SASBF ; Aufruf der Verschieberoutine 


Mit dieser Routine lassen sich beliebige Speicherbereiche zu 
höheren Adressen verschieben. Der BASIC-Interpreter benötigt 
diese Routine, um den kompletten Arraybereich nach oben zu 
schieben, wenn eine neue Variable angelegt werden muß. 


Wer selbst auf dem ö4er in Maschinensprache programmieren 
will, dem wird das Studium des ROM-Listings nicht nur die 
Arbeitsweise von BASIC-Interpreter und Betriebssystem näher 
bringen. Durch geschickte Nutzung der Routinen läßt sich 
nicht nur viel Programmierzeit, sondern auch Speicherplatz 
sparen, der dann für Ihre eigenen Anwendungen zur Verfügung 
steht. 


Auf den nächsten Seiten finden Sie nun zum leichteren 


Durchfinden ein alphabetisches Verzeichnis sämtlichliche 
ROM-Routinen und ihrer Adressen im Listing. 
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8.2 Alphabetisches Verzeichnis der ROM-Routinen 


Abfrage auf gedrückte Bandtaste 
Adresse eines Arrayelements berechnen 
Adressen der Basic-Befehle (minus 1) 
Adressen der Basic-Funktionen 
Adressen der Fehlermeldungen 
Adresszeiger erhöhen 
Anfangswert für RND-Funktion 
Arbeitsspeicher initialisieren 
Arrayelement suchen 
Arrayvariable anlegen 

Ausgabe der Zeilennummer bei Fehlermeldung 
Ausgabe eines Fragezeichens 
Ausgabe eines Leerzeichens 
Ausgabe in RS 232 Puffer 

ARG = Konstanate (A/Y) 

ARG nach FAC übertragen 
ASCII-Kode nach Bildschirakode wandeln 
Band für Lesen vorbereiten 
Bandheader nach Namen suchen 
Bandpuffer auf Band schreiben 
Bandpuf ferzeiger erhöhen 

Basic CKOUT-Routine 

Basic Kaltstart 

Basic NMIl-Einsprung 
Basic-Befehl CLOSE 
Basic-Befehl CLR 

Basic-Befehl CMD 

Basic-Befehl CONT 

Basic-Befehl DATA 

Basic-Befehl DEF 

Basic-Befehl DIM 

Basic-Befehl END 

Basic-Befehl FOR 

Basic-Befehl GET 

Basic-Befehl GOSUB 
Basic-Betfehl GOTO 

Basic-Befehl IF 

Basic-Befehl INPUT 
Basic-Befehl INPUT# 
Basıc-Befehl LET 

Basic-Befehl LIST 

Basic-Befehl LOAD 

Basic-Befehl NEW 

Basic-Befehl NEXT 

Basic-Befehl ON 

Basic-Befehl ON 

Basic-Befehl OPEN 

Basic-Befehl POKE 

Basic-Befehl PRINT 
Basic-Befehl PRINT“ 
Basic-Befehl READ 

Basic-Befehl REM 

Basic-Befehl RESTORE 
Basic-Befehl RETURN 
Basic-Befehl RUN 

Batcic-Befehl SAVE 

Basic-Befehl STOP 
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$FB2E 
$BJIOE 
SAOOC 
sA052 
sA328 
$FCDB 
SESBA 
$FDSO 
$B2E9 
sB261 
sBDC2 
sAB4A5 
SABSB 
zFO14 
$BABC 
$BBFC 
3E691 
sSFBE2 
SF7EA 
$F864 
$F80D 
SEAAD 
sES94 
sES7B 
sEICT7 
$A65SE 
+AAB& 
$AB857 
$ABFB 
$B3BS 
$BOB1 
$AB831 
A742 
$AB7B 
$ABBS 
SABAO 
+N928 
$ABBF 
$ABAS 
SA9AS 
SAAIC 
SE16B 
#A642 
sADID 
SAIAB 
$A9I4B 
$E1BE 
sB824 
SAAAO 
SAABO 
SACO& 
SAISB 
$AB1D 
$ABDZ 
$AB71 
SE156 
sAB2ZF 


Basic-Befehl SYS 
Basic-Befehl VERIFY 
Basic-Befehl WAIT 
Basic-Befehlsworte 
Basic-Fehlermeldungen 


Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktıon 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 
Basic-Funktion 


ABS 
ASC 
ATN 
CHR$ 
cos 
EXP 
FN 
FRE 
INT 
LEFT$ 
LEN 
LOG 
MID$ 
PEEK 
POS 
RIGHTS 
RND 
SGN 
SIN 
SAR 
STR$ 
TAN 
VAL 


Basic-Kode in Klartext wandeln 


Basic-Operator 
Basic-Operator 
Basic-Operator 


AND 
NOT 
OR 


Basic-Routine BASIN 
Basic-Routine BSOUT 
Basic-Routine CHKIN 
Basic-Routine CKOUT 
Basic-Routine GETIN 
Basic-Statement ausführen 
Basic-Vektoren laden 
Basisadresse des CIAs holen 
Betr iebssystem-Meldungen 
Bildschirm löschen 
Bildschirm scrollen 
Bildschirm-Reset 
Bildschirmformat holen 
Bildschirmzeile löschen 
Bit auf Band schreiben 
Bitweise Multiplikation 


Bitzähler für serielle Ausgabe setzen 


Block vom Band lesen 
Blockverschiebe-Routine 

Byte auf seriellen Bus ausgeben 
Byte auf seriellen Bus ausgeben 
Byte vom seriellen Bus holen 
Byte vom Band holen 

Byte von RS 232 holen 

Bytenert nach X holen, GETBYT 
BASIN-Raoutine 

BSOUT-Routine 

Cursar setzen/holen 
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SE1ZA 
$E165 
$B82D 
SAOIE 
sALIE 
sBC58 
$B78B 
$SEISOE 
$B&EC 
$E264 
sBFED 
$BJ3F4 
$BS7D 
$BCCC 
$B700 
$B77C 
£BIEA 
3587537 
$BBOD 
+BSIE 
$B72C 
sE097 
+BC39 
$E24AB 
$BF71 
$B465 
sE2B4 
$B7AD 
{A717 
SAFE? 
$SAED4 
SAFE 
sELL2 
$SEIOC 
$ELIE 
sE118 
$E124 
$SATED 
sE4ASIS 
sSES00 
sEASF 
sE544 
SEBEA 
sES18 
sES0S 
$SEIFF 
$SFBA& 
zBAS? 
$FB977 
$F841 
$ASBS 
3ED40 
$EDDD 
$SEE13 
sF197 
sFıB8 
+B79B 
sF157 
$SFICA 
SESOA 


Cursor Home 

Cursorposition berechnen 
CHKIN-Routine 

CKOUT-Routine 

CLALL-Routine 

CLOSE-Routine 

CLRCH-Routine 

Datenbits für RS 2532 berechnen 
Dimensionierte Variable holen 
Division FAC = ARG / FAC 
Division FAC = Konstante (A/Y) / FAC 
Einfügen einer Fortsetzungszeile 
Eingabe einer Zeile 
Eingabe-Warteschleife 
Fehlerbehandlung bei Eingabe 
Fehlermeldung ausgeben 
Fehlermeldung des Betriebssystems 
Fileparameter setzen 

Flag für Systemmeldungen setzen 
Fließkommakonstante -32768 
Fließkommakonstante 0.5 
Fließkommakonstante 10 


FAC = FAC # 10 

FAC = FAC + 0.5 

FAC = FAC / 10 

FAC = Konstante {A/Y) 


FAC nach AkkuAS übertragen 

FAC nach Akku#4 übertragen 

FAC nach ARG übertragen 

FAC nach ASCII wandeln und nach #100 

FAC nach Variable übertragen 

FN-Syntax prüfen 

FRESTR 

FRMEVL Auswerten eines beliebigen Ausdrucks 
FRMNUM Ausdruck holen und auf numersich prüfen 
Sarbage Collection 

GETADR und GETBYT, 16- und B-Bit-Wert holen 
GETADR, FAC in positive 1&-Bit-Zahl wandeln 
GETIN-Routine 

Hardware und 1/0-Vektoren setzen/holen 
Header auf Band schreiben 

Hierarchiekodes der Basic-Operatoren 
Hilfsroutine für Arrayberechnung 
Hintergrundfarbe setzen 

Interpreterschleife 

Interruptroutine 

Interruptroutine fur Band lesen 
Interruptroutine für Band schreiben $FBCD, 
IRQ-Einsprung 

IRQ-Vektor setzen 

IRQ-Vektoren 

Kernal Sprungtabelle 

Konstante Pi 

Konstanten fur ATN 

Konstanten für EXP 

Konstanten für Fließkomma nach ASCII 
Konstanten für Flleßkomma nach ASCII 
Konstanten für LOG 

Konstanten für RND 

Konstanten für SIN und COS 
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$ES66 
sSES6C 
$F2OE 
+sF250 
sSFS2F 
<F291 
sF333 
tEFAA 
sBiDi 
#BB12 
#3BBOF 
sE9I&I 
sAS60 
sAABO 
sABAD 
A437 
$FöFB 
sFSIF 
sFEIB 
$B1AS 
$BFil 
#$BAFY 
tBAE2 
+3B849 
$BAFE 
$BBA2 
#$BBCA 
$BBC7 
BCOC 
$BDDD 
+BBDO 
$BSEI 
$B6AS 
+ADIE 
$ADBA 
+B526 
sB7EB 
$B7F7 
sFiSE 
$FD15S 
$F76A 
sAOBO 
$BS4C 
$E4DA 
tAT7AE 
$EAS1 
sF92C 
sFCAA 
sFFAB 
sFCB8ö 
$FD98 
sFFBO1 
$AEAD 
sSESSE 
$BFBF 
$BF1& 
$BDBS 
+B98C 
$EO8D 
$EZEO 


Konstanten für Umwandlung TI nach TI$ 
Kopie der CHRGET-Routine 

Listen senden 

Logische Filenummer suchen 

Löschen und Einfügen von Programmzeilen 
LOAD-Routine 

Mantisse von FAC invertieren 
Meldungen des Betriebssystems 
Meldungen des Betriebssystems ausgeben 
Meldungen des Interpreters 

Minus FAC = ARG - FAC 

Minus FAC = Konstante (A/Y) - FAC 
Multiplıkation FAC = ARG *» FAC 
Multiplikation FAC = Konstante (A/Y) = FAC 
MSB für Zeilenanfänge neu berechnen 
Nächste Zeile suchen 

Nächstes Element eines Ausdrucks holen 
Nächstes Statement suchen 
NMI-Einsprung 

NMI-Routine für RS 232 

Obergrenze RAM setzen/holen 
OPEN-Routine 

Parameter für aktives File setzen 
Parameter für Filenamen setzen 
Parameter für LOAD und SAVE holen 
Parameter für OPEN holen 

Platz für String reservieren 

Plus FAC = ARG + FAC 

Plus FAC = Konstante (A/Y) + FAC 
Polynomberechnung 1 

Polynomberechnung 2 

Positive Integerzahl in A/X ausgeben 
Potenzıierung FAC = ARG hoch FAC 
Potenzierung FAC = ARG hoch Konstante (A/Y) 
Programm vom Band laden 
Programmheader vom Band lesen 
Programnzeiger auf Basic-Start 
Programmzeile einfügen 

Programmzeile löschen 

Programmzeilen neu binden 

Prüfung auf numerisch 

Prüfung auf Auto-Start-ROM 

Prüfung auf Buchstabe 

Prüfung auf Erreichen der Endadresse 
Prüfung auf Klammer auf 

Prufung auf Klammer zu 

Prüfung auf Komma 

Prüfung auf Platz im Speicher 

Prüfung auf Shift, CTRL, Commodore 
Prüfung auf Steuerzeichen 

Prüfung auf Stop-Taste 

Prüfung auf String 

Prüfung auf Systemvariable 

Prüfung auf übereinstimmung mit laufendem Zeichen 
Rechtsverschieben eines Registers 
Rekordermotor ausschalten 

Reset -Routine 

RAM für Basic initialisieren 

ROM-Modul Identifizierung 

RS 232 Ausgabe 
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$BFSA 
sESA2 
$EDOC 
$F30F 
SA4IC 
$F49E 
$sB947 
$FOBD 
$F12B 
sAI&A 
$B853 
$B850 
+BA2B 
$BA2B 
$E6öB6 
A909 
$AEBS 
SAIO& 
sFEAS 
$FED6 
sFE2S 
SFSIAA 
$FEOO 
sFDf? 
$E1D4 
sE219 
$BAF4 
$BB6A 
$B867 
$EO43 
$E039 
$BDCD 
$BF7B 
sBF78 
SFBAA 
SF72C 
$A&BE 
SA4ED 
sA4AI 
A533 
$ADED 
$FDO2 
$B113 
$FCD1 
$AEFA 
$AEF7 
SAEFD 
$ASFB 
$EB4AB 
sECA4 
sAa2C 
$ADOF 
sArF14 
$AEFD 
$B995 
$FCCA 
sFCE2 
sEIBF 
$FD1O 
$EEBB 


RS 232 Ausgabe 

RS 232 CHKIN 

RS 232 GET 

Schafft Platz im Speicher 

Sekundäradresse nach Listen senden 
Sekundäradresse nach Talk senden 
Stapelsuch-Routine 

Startadresse des Bandpuffers holen 
Startadresse einer Programmzeıle berechnen 
Status holen 

Stoptaste abfragen 

String ausgeben 

String holen, Zeiger nach A/Y 

String in reservierten Bereich übertragen 
Stringparameter holen 

Stringparameter vom Stack holen 
Stringvergleich 

Stringverknüpfung 

Stringverwaltung, FRESTR 

Stringzeiger berechnen 

SAVE-Routine 

Tabelle der Basic-Vektoren 

Tabelle der Farbkodes 

Tabelle der Hardware- und I/0O-Vektoren 
Tabelle der LSB der Bildschirmzeilen-Anfänge 
Talk senden 

Tastatur Dekodiertabelle 
Tastatur Dekodiertabelle 
Tastatur Dekodiertabelle 
Tastatur Dekodiertabelle 
Tastaturabfrage 

Term in Klammern holen 
Test auf Direkt-Modus 
Test auf Hochkomma 

Test auf Stop-Taste 

Time erhöhen 

Time holen 

Time setzen 

Timeout-Flag für seriellen Bus setzen 
Timerkonstanten für RS 232 Baud Rate, NTSC-Version 
Timerkonstanten für RS 232 Baud Rate, PAL-Version 
Umwandlung einer Zeıle in Interpreterkode 
Umwandlung ASCII nach Fließkommaformat 

Umwandlung Fließkomma nach Integer 

Umwandlung Fließkomma nach Integer 

Unlisten senden 

Untalk senden 

Untergrenze RAM setzen/holen 

Variable anlegen 

Variable holen 

Variable holen 

Vergleich 

Vergleich Konstante (A/Y) mit FAC 

Videocontroller initialisieren 

Vorzeichen von FAC holen 

Warten auf Bandtaste 

Warten auf Bandtaste für Schreiben 

Warten auf Commodore-Taste 

Warteschleife für Tastatureingabe 

Wertzuweisung an normalen String 


BUN" 
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sF208 
sFO4D 
$FOB6 
sA408 
$EDBYI 
$EDC7 
$ASBE 
sF7DO 
$A6s13 
$FEO7 
SF&6ED 
$ABIE 
zB4B7 
$B67A 
3B782 
B761 
sBO2E 
£B6SD 
E2:1-T- 2 
$B475 
£SFSDD 
sE447 
#EBDA 
£FDS0 
SECFO 
+EDOTF 
+EBB1 
$EBC2 
TECOS 
LEC7RB 
$SEABT 
SAEFI 
tBSA& 
$E684 
tFBDO 
#F69B 
$F&DD 
SF&6E4 
+FE21 
$FEC2 
sE4EC 
A579 
sBCF35 
$B18B2 
sBC9B 
$EDFE 
$EDEF 
$FES4 
$B11D 
SAF2B 
$BOBB 
$BO1& 
$BC5B 
$SESAO 
$BC2B 
sF817 
sF83B 
$E4EO 
sSESCA 
SAA2C 


Wertzuweisung INTEGER 
Wertzuweisung REAL 
Wertzuweisung String 


Zeichen 
Zeichen 
Zeichen 
Zeichen 
Zeichen 


auf 
auf 
aus 
und 
vom 


Bildschirm ausgeben 

Ziffer prüfen 
Tastaturpuffer holen 

Farbe auf Bildschirm setzen 
Bildschirm holen 


Zeiger auf erstes Arrayelement berechnen 
Zeiger auf Farbram berechnen 

Zeiger auf Tastaturdekodiertabellen 

Zeile nach oben schieben 

Zeilennummer holen und in Adressformat wandeln 
Zeit holen 
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sA9CA 
SA9D& 
#909 
$E716 
SAA1D 
sESB4 
SEAIC 
sE632 
sB194 
sEnZa 
$EB79 
$E9CB 
$A9&B 
sAFB4 


8.35 Commodore 64 ROM-Listing 


LILLITIEETTTETTETETEIEEITEI SIT 


A000 94 ES Start-Vertor $E394 
A002 7B ES NMI-Veltor sE37B 


DLLEIEEERELTETIEITITETERERT ET 
A004 43 42 aD 42 31 55 39 35 "cbabasıc' 


ELZELLTEITTETITEITTZEIIEI ZIERT Adressen der BASIC-Betenle (aınus 1) 
Interpreterkode Adresse betehl 


A00C 50 AB E21: 77} saBzı END 
AODE 41 a7 sBı #742 FOR 
A019 1D AD #62 saDıE NEXT 
A012 F7 AB 565 SABFB DATA 
A014 Aa AB sB: sABa5 INPUTR 
acı& BE AB 865 sAßBr IKFUT 
AoıB 80 BO sBe sB081 Din 
ADIA 05 AC 37 sAC06 READ 
AUDIT As A9 568 sAa9k5 LET 
AOIF SF AB s8> sABAO 60TO 
A020 70 AB «BA sAa7ı RUN 
4022 27 89 s8E 54928 IF 
A024 IC 88 sec sn81D BESTORE 
A026 82 AB s3D sABBT GOSUB 
A028 DI AB scE sABD? RETURN 
AOZA 5A AI sgF sA9%B REN 
A02C 2E AB +20 sABzrF STor 
AO2F 4A AI ss 52958 DON 
4030 2C BB s92 sB82D KAIT 
A0OS2 67 EI 395 $E168 LOAD 
A034 55 E1 9 $E156 SAVE 
A0OSb 64 El 525 $E165 VERIFY 
A038 B2 B5 95 sB5B3 DEF 
A05A 25 BB 97 38622 POFE 
AOSC 7F AA E27: ] sAABO PRINTR 
AOSE SF AA 79 SAAAO PRINT 
4040 5b AB sg9a sA857 EONT 
A042 98 A» s9E SAsIC LIST 
A044 5D Ab ssc $A&sSE cıR 
A046 85 AA ss JAABb cnD 
AO&sB 29 Ei s9E sEi2A Sys 
AOsA BD EI syF sEIBE DPEN 
adal C& Ei sau sEIC? CtLOSE 
AOsE 7A AB sal sAB7E GET 
A050 41 Ab sA2 32642 NEU 
AALHERZEZZESZZEN ZEIT EZ SZ IE) Adressen der BASIC-Funktionen 
A052 39 8C 154 8059 SGH 
A05& CC BC sB5 sBccE INT 
A056 58 BC sb6 sEC5B ABS 
058 10 03 #87 30310 USR 
AOSA 7D BJ BB sB37D FRE 
AOSC 9E BJ :B9 sB39IE FDS 
AOSE 71 BF sBA sBF71 SoR 
A050 97 EO $bB sE097 RUND 
A062 EA BF sBC sB9EA L06 
A064 ED BF $BD sBFED EıP 
AO66 64 E2 sBE sE264 cos 
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AND&AB 
A0BA 
AO&C 
AOsE 
AO7O 
A072 
A074 
4076 
A07B 
AOTA 
Ao7c 
AOTE 


6B 
B4 
0E 
0D 
TC 
65 
AD 
88 
EC 
00 
2C 
37 


E2 
E2 
E3 
BB 
87 
84 
B7 
87 
B& 
B7 
87 
B7 


#BF 
sco 
scı 
sc2 
sC3 
sc4 
sC5 
sC6 
$C7 
sCc8 
sc’ 
sca 


LAKZEZZEEZZZERZZ ZZ ZTZET DET ZZ 


A080 
A08> 
A086 
A089 
Aoac 
AOBF 
A092 
A095 
A098 
AO9B 


79 
79 
7B 
78 
TF 
50 
46 
7D 
5A 
63 


AO9IE 
AOAO 
AOAB 
A0B0 
AOBB 
AOcO 
AOCB 
AODG 
A0D8 
AOEO 
ADEB 
AUFO 
AOFB 
ALoo 
A108 
A1l1O 
AIIB 
A1L2Nn 
A128 
ALIO 
A158 
A1L4N 
A14B 
ALSO 
A158 
ALSO 
A168 
ALTO 
A178 
A1BO 
A188 
4190 
A198 


45 
Ca 
44 
54 
49 
D4 
49 
c5 
54 
54 
D4 
c5 
45 
49 
Da 
04 
59 
[13 
D7 
CE 
CE 
AB 
4F 
49 
D2 
51 
45 
13 
45 
52 
43 
Aa 
49 


69 
52 
2A 
t1 
7A 
€8 
E5 
83 
D5 
15 


BB 
B8 
BA 
8B 
BF 
AF 
AF 
BF 
AE 
B0 


[UK ER ET 


aE 
46 
a 
a3 
co 
a7 
Ch 
47 
ss 
4F 
ac 
5b 
[93 
7: 
43 
a3 
03 
53 
54 
53 
4E 
aD 
02 
4E 
46 
D2 
s8 
54 
45 
A4 
48 
52 
4 


ar 
54 
X) 
52 
113 
52 
4E 
52 
Do 
ar 
a5 
so 
54 
4F 
ac 
ar 
c5 
a 
so 
4F 
AA 
BE 
D4 
s2 
52 
Do 
a 
CB 
56 
52 
43 
[Y} 


ss, 
79, 
s7B, 
s7B, 
sIr, 
s50, 
s46, 
s7D, 
s5A, 
564, 


DRERRREERUERTSERE 


D2 
ci 
4E 
45 
54 
45 
53 
ce 
af 
4 
52 
4F 
A3 
4E 
D2 
50 
47 
42 
43 
Da 
AF 
BD 
4 
cs 
4 
43 
CE 
ac 
a 
a4 
47 
47 


4E 
49 


#5 
4 
s5 


58 D4 
so 55 
D4 44 
ac 43 
35 CE 
4F 52 
52 45 
co 53 
4149 
41 56 
09 44 
50 52 
49 4£ 
49 53 
ca 53 
43 4C 
4E 45 
CF 46 
48 45 
45 00 
4E Cä 


sEZEB SIN 


sE2B4 TAN 
sEI0E ATN 
sB800 PEER 
sB77C LEN 
35465 STRE 
sB7AD VAL 
sB79B ASEe 


sBöEC CHR$ 
sB700 LEFTS 
3B72C RIGHTS 
18737 nIDds 


Hıerachiecodes und Adressen-I der Operatoren 
+Ba6sA Addıtion 

88853 Subtraktion 

sBA2B Multiplikation 

s8812 Divısıon 

sBF7B Potenzierung 


SAFE AND 
sAFES& OR 
sBFB4 Vorzeichenwechsel 
sAED4 NOT 


$BOl& vergleich 


BASIC-Betehlsworte 


end 

tor next 
data input® 
ınput dın 
read let 
goto run 

14 restore 


gosub return 
ren stop 

on waıt 

load save 
verify def 

poke prınts& 
print 

cont lıst 

elr cad sys 
open close 


get new 
tabt to 
spct then 


not stop 
“-a,7% and 
or (=> sgn 

ınt abs usr 
fre pos sqr 
rnd log 

exp cos sin 
tan atn peek 
len str$ 


val asc 
chrs lefts 
rights ads 
90 
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EASLZEZZELZZZELZEZZEZZ ZEIT ZZ 


ALIE 
A1AO 
ALAB 
ALBO 
A1LBE 
ALCO 
ALICE 
A1DO 
ALDE 
AIEO 
ALEB 
AıFO 
AIFB 
A200 
A208 
A210 
A218 
A220 
A228 
A230 
A238 
A240 
A248 
A250 
A258 
A250 
A268 
A270 
A278 
A2ZBO 
A2BB 
A290 
A298 
A2A0 
A2AB 
4260 
A2BB 
A2CO 
a2ca 
A2D0 
A2D8 
A2EO 
A2EB 
A2FO 
A2Fe 
ASOO 
ASOB 
A310 
ası8 
A320 


A328 
A330 
AJJB 
A340 
A348 
A350 
AS5B 


54 
aF 
[7] 
20 
45 
45 
ar 
14 


ar 
20 
ac 
ar 
20 
CE 
54 
45 
54 
D4 
55 
4F 
54 
53 
ac 
“C 
45 
3D 
20 
20 
a 
20 
20 
54 
ci 
20 
D3 
D7 
aD 
44 
[y 
4 
52 
aD 
D8 
4E 
CF 
20 
5, 
a 
4E 
4F 
a4 
55 
43 
4 
54 
4 
[R 
[t) 


Al 
Al 
Az 
a2 
A2 
a2 
A2 


{1} 
45 
50 
sE 
7} 
20 
ss 
20 
4E 
sa 
54 
20 
53 
45 
ac 
56 
42 
57 
46 
D8 
57 
47 
20 
’o) 
51 
ar 
4F 
#5 
45 
54 
44 
49 
27 
7 
20 
49 
[7 
so 
54 
47 
[13 
a 
ac 
4E 
4E 
49 
4 
54 
IT, 


ACc 


4 
D3 
45 
af 
49 
4 
49 
so 
aF 
20 
20 
46 
9 
20 
45 
[T) 
45 
Lt) 
ar 
s2 
9 
13 
sr 
ac 
55 
56 
55 
aD 
[73 
[r 
20 
so 
44 
“ 
2 
ec 
ID) 
45 
[R 
20 
c7 
54 
a 
[1 
27 
4E 
27 
49 
D9 


4£ 
46 
CE 
54 
ec 
IT; 
a 
52 
54 
46 
sFr 
[T) 
4E 
4E 
ER) 
45 
02 
54 
02 
45 
54 
Ep 
s6 
ac 
4 
45 
54 
ar 
27 
21 
53 
Da 
20 
56 
53 
ac 
52 
20 


EL) 
a9 
4 
20 
45 
55 
#5 
45 
20 
49 
55 
sc 
47 
al 
4 
a5 
4E 
48 
53 
54 
28 
s5 
20 
45 
4E 
52 
20 
52 
44 
45 
55 
52 
4 
EL} 
20 
a5 
45 
“0 
ER 
af 


20 
“C 
49 
ar 
20 
4£ 
20 
53 
49 
sc 
54 
c5 
20 
4“ 
sc 
20 
#5 
af 
sg 
55 
E12 
c2 
a 
47 
54 
16 
sr 
d? 
20 
s£ 
42 
45 
52 
53 
5A 
47 
43 
[X 
54 
af 
4 
ar 
af 
45 
43 
s5 
46 
56 
4 


45 
45 
“CL 
50 
4E 
ca 
#E 
#5 
4E 
c5 
st 
“) 
46 
c5 
20 
4E 
58 
55 
sE 
52 
55 
sr 
sl 
41 
49 
“C 
45 
55 
53 
D& 
53 
44 
52 
43 
45 
4 
D4 
53 
52 
20 
45 
52 
4F 
De 
af 
4E 
55 
45 
c4 


BASIC-Fehleraeldungen 


[2) 


> 


too aanv files 


tıle open 
tıle not open 


tıle not *ound 

device not present 
not ınput ftıle 

nor output Fıle 
aissıng filenaae 
ıllegal device nunber 
next wıthout Tor 


syntax 
return mithaut gosub 


out of data 
illegal quantity 
overflow 


out of seaory 
undef’d stateaent 


bad subscript 
redim’d array 
divısion by zero 
ıllegal direct 


type aisaatch 
strıng too long 


tıle data 
toraula too coaplex 


can't continue 
undef 'd #unction 


verify 
load 


Adressen der Fehleraeldungen 
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A360 24 AS 85 A3 


LLESZZZZELZZTETERET EIER Meldungen des Interpreters 


A364 OD AF 45 OD ok 
AS&B 00 20 20 a3 52 52 4F 52 error 
AS7O 00 20 49 4E 20 00 0D 0A in 
A378 52 45 41 44 59 2E OD 0A ready. 
A3BO 00 OD OA 42 52 45 41 48 break 
A3BS 00 AQ 


BERBEERREDRRRRRTEU RU TER TER Stapelsuch-Routine fur FOR-NEXT 


A3BA BA TSI und 60SU8 

A3SBB [3: INX 

AISC E® InX 

AI8D E8 INX 

ASBE EB INA 

ASBF BD 01 01 LDA 80101,X 

ASTZ c9 81 CHP as FOR-Code 

AIIa 00 21 BNE $A3B7 

ASIb AS AA LDA 84A Varıablennase vergleichen 
Ur}: DO 0A BNE $AJA4 

AIIA BD 02 v1 LDA 80102,X 

A3?D 85 39 STA 149 

ASIF BD 03 ul LDA #0103,1X 

AIA2 85 4A STA #4A 

ASA4 DD 03 0: CHP $0103,X 

Asa? DO 07 BNE $AJBO 

A5A9 AS 49 LDA #49 

ASAB DD 02 01 CnP 90102,X 

AJAE FO 07 BED #A387 

ASBO 8A Txa 

asBi 18 cLc 

A3B2 69 12 ADC 2812 Stapelreıger ua 18 erhöhen 

ASBA An TAX 

ASBS 00 08 BNE sAJBF nachste Schleite prufen 
ASB? 60 RTS 

LAEZZEUZZZZEZELEIE ZZ ETUI ET T Block-Verschiebe-Routıne 
3B8 20 08 A4 JSR SA40B prüft auf Platz ıa Speicher 

AJBB 85 31 STA 831 

A3BD 84 32 stY #32 

ASBF 38 sec Einsprungpunkt 

ASCO a5 5A LDA $5A 35F/860 Alter Blockanfang 

ASc2 ES SF SBC 8#5F s3A/s5B Altes Blockende + I 

AICa BS 22 STA #22 838/85% Neues Blockende + I 

ASCh AB TAY 

A3SCc7 AS SB LDA #5B 

A3c9 ES 60 SBC #60 

AICB AA TAX 

ASCC E8 INX 

ASCD +8 TYA 

ASCE FO 23 BEQ $AJF3 

ASDO a5 5A LDA 8#5A 

A3D2 38 SEC 

A3D3 ES 22 SBC $22 

43D5 85 5A STa #3A 

A3D? Bo 03 BES sAIDC 

A309 C6& SB DEC 95B 

A3DB 38 SEC 
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AIDC a5 58 LDA #58 


ASDE ES 22 SBC 322 

ASEO 85 58 STA s58 

A3E2 80 08 BCS SAJEC 

AIES C6 59 DEC #59 

ASES 90 08 BCC sAJEC 

ASEB Bl SA LDA 1$5A),Y 

ASEA 91.58 STA (858) ,Y 

ASEC 88 DEY 

ASED Do F9 BNE SA3SEB 

ASEF BI SA LDA (#5A),Y 

ASFL 91 58 STA (358) ,Y 

ASFS C6 SB DEC $5B 

ASFS 16 59 DEC 559 

ASFT CA DEX 

ASFB DO F2 BNE SASEL 

ASFA 60 RTS 

a... euer Prufung auf Platz ın Stapel 
ASFB 0A ASL A Arku muß dazu dıe halbe Zahl an 
ASFC 69 SE ACC #s3E ertorderlichen Platz enthalten 
ASFE 60 35 BES $AaSS gıbt "out of aenory' 

A400 85 22 STA #22 

A402 BA TS 

Aa03 EA 22 cPx 122 

A&0S 90 2E BIC 9A435 gıbt "out of aeaory’ 

A407 60 RTS 

[KEZIE EZ ERZZZZZEZEEZEZ ZZ SET Schafft Platz ıa Speicher 

as0B Cs 54 CcPY 334 tur Zeıleneinfügung und Varıablenanlage 
As0A 90 28 BEC 34334 

AsOC Do 04 SNE $A412 AX = Adresse, bıs zu der Platz 
As0E c5 32 CHP 833 benötigt wırd. 

As1O 90 22 BEC $A4J4 

A412 48 PHA 

A413 A209 LDI #609 

As15 98 TYA 

A416 48 PHA 

A417 B5 57 LDA 957,X Register für Arıthaetik retten 
A419 ca DEX 

As1A 10 FA BPL A416 

AsIC 20 26 65 JSR 398525 Garbage Collectıon 

AAIF A2 F7 LDx asF7 

LEp2 68 PLA 

A422 95 61 STA s61,1 Register zurückholen 

A424 [3-] INK 

A425 30 FA Bml saa2ı 

A427 68 PLA 

A428 AB TAY 

A423 68 PLA 

Aa2A Ca 34 CPY 834 

A4A2C 90 06 BCC $A4Ia Ok, #ertig 

As2ZE Do 05 BNE $A435 keın Platz, out of seaory' 
A430 c5 33 emp 533 

A432 Bo 01 BCS 8A435 

LERZ 60 RTS 

AASS A2 10 LDxX 8310 Fehlernuaser fur ‘out 01 meaory' 


aarsaateserae ans intetreeraer  Fehlereinsprung 
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A437 


6C 00 03 


JnP 


(80300) 


LEZEZELEZTEZZZERENEIZETUETETTT 


A4SA 8A Tıa 

A4SB oA ASL A 

LER Ts AA TAX 

AsJD BD 26 AJ LDA 3A326,X 
AA&0 85 22 STA #22 
A442 BD 27 A3 LDA 8A327,X 
As45 85 23 STA 823 
A447 29 CC FF JSR #FFCC 
A4AA 497 00 LDA #800 
AgaC 85 13 STA 513 
As4E 20 D7 AA JSR sAADT 
As51 20 45 AB JSR $AB45 
Aa54 AO 00 LDY 8800 
LUET 81 22 LDA (822) ,Y 
As58 48 PHA 

4459 29 7F AND u87F 
AASB 20 47 AB JSR sAB4T 
AsSE c8 INY 

A4SF 68 PLA 

A460 10 F4 BPL #A456 
A462 20 7A Ab JSR $A6T7A 
A365 AI 69 LDA #869 
A467 AO A3 LDY 4843 
As69 20 IE AB JSR sABLE 
A46C Aa 3A LDY s3A 
A4bE c8 InY 

AAbF FO 03 BEO 64474 
A971 20 C2 BD JSR #8DC2 
A474 AI 76 LDA 0876 
AST AO AS LDY 08A35 
Aa7a 20 1E AB JSR SABILE 
AA7B A9 80 LDA #580 
Aa7D 20 90 FF JSR SFF90 
LILLZEZEEEZIEZZIEE ESS E ET ENTE 
A480 6C 02 03 JMP (80302) 
A483 20 60 AS JSR A560 
A4B& 86 7A STX 87A 
LEIT:} 84 78 STY #7B 
Asa 20 73 00 JSR 60073 
AaaD AA TAX 

AABE FO FO BEQ sA4BO 
A490 A2 FF LDX asFF 
A492 86 5A STX $JA 
A494 70.06 BCC $SA4IC 
A496 20 79 A5 JSR #A579 
A499 ac Ei AT JMP $ATEL 
ELZSELZEREEETTTSENTETSIEEE ET 
Aas9t 20 6B #9 JSR $AF6B 
AasFf 20 79 AS JSR 64579 
AaA2 84 08 STY #0B 
Aana 20 13 Ab JSR A613 
AaAT 90 44 BCE $A4ED 


[ELZEZEEZENZZELEZEZZER EL ER ZEI ZZ 


A4A9I 


AO 


0 


LDvY 


so 


JMP SESBB, zum BASIC-Warastart 


Fehleraeldung ausgeben 
Fehlernuaner ie 1-Regıster, I bis 30 


Adresse der Fehleraeldung holen 
ELRCH aktive 1/0 Kanäle rücksetzen 


1/0 Flag rucksetzen 
CR) und {LF) ausgeben 
"9?" ausgeben 


Text der Fehleraeldung 


Fehleraeldung ausgeben 


BASIC-Zeiger ınıtıalısieren, CONT sperren 


Zeiger A/Y auf 'error‘ 
String ausgeben 
Prograamsnodus ? 


nein 
“in leilennumaer ’ ausgeben 


Zeıger auf 'reany' 
String ausgeben 


Direkt-Modus Flag setzen 


Eingabe-Warteschleife 
JNP 84483 
BASIC-Zerile in Eıngabepuffer holen 


CHRGET Zeiger auf Eıngabepufter 
CHRGET nachstes Zeichen holen 


Pufter leer, dann weıter warten 


Kennzeichen tür Direkt-Nodus 
litter, dann als BASIC-Zeıle einfügen 
BASIC-Zeile in Interpreter-Kode wandlen 


Befehl ausführen 


Löschen und Einfugen von Prograaazeılen 
Zeilennuaaer in Adresstoraat umwandeln #14/$15 
BASIC-Zeile ın Interpreter-Kade wandeln 

Zeıger in Eingabepuffer 

Adresse der BASIC-leile berechnen 

nicht vorhanden, dann löschen ubergehen 


Prograaazeıle löschen 
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AsAB Bı SF LDA (s5F),Y 
AAAD 85 23 STA 823 
A4sAF AS 2D LDA $2D 
AsBI 85 22 STA #22 
A&B3 AS &0 LDA 360 
A4B5 85 25 STA #25 
A4B7 AS sf LDA s5F 
naB? 88 DEY 

AABA Fi 5f SBC 185F),Y 
ABC 18 CLc 

A4BD 65 2D ADC 32D 
AaBF 85 2D sTa s2D 
Ascı 85 24 STA 524 
Aacy AS 2E LDA s2E 
ASCS 69 FF ADC asFF 
AAC7 85 2E STA s2E 
ACH ES 60 s3C 460 
ASCB aa TAX 

AACL 38 SEC 

AACD AS Sf LDA s5f 
A4CF £5 2D SBC $2D 
“aD! AB TAY 

A4DZ B0 05 BCS 8A4D7 
AsDa 13: INX 

AADS Ch 25 DEC 825 
A4D7 18 cLc 

A4DB 65 22 ADC $22 
AADA 90 03 BCE sAaDF 
AaDe Cö 25 DEC $23 
A4DE 1B cıuc 

AaDF B1 22 LDA (822) ,Y 
AsEI 2 SIA 1524) ,Y 
A4EI ce INnY 

A4Ea Do F9 BNE SAADF 
A4Eb E& 23 Int 823 
A4EB E& 25 INC 325 
ASEA Ca DEY 

A4EB 00 F2 BNE SA&DF 
LLELKEZEZETTEZTEETEERTIER ZT TT 
A4ED 20 59 Ab JSR $As59 
A4FO 20 33 AS JSR 5A533 
AAFS AD 00 02 LDA 50200 
AAF&b FO 88 BEQ $A4B0 
AAFB 18 cıLc 

AAFF AS 2D LDA #20 
AAFEB 85 5A STA #5A 
AAFD 65 0B ADC #08 
AAFF 85 56 STA 358 
A501 a4 2ZE LDY s2E 
A503 84 5B STY 35B 
A505 001 BCC $AS0B 
4507 t8 INY 

ASOB 84 59 STY #59 
ASOA 20 BB A3 JSR $ASBE 
ASoD AS 1a LDA 514 
ASOF As 15 tDY 815 
AStı eD FE 01 STA $SOIFE 
A514 BC FF O1 STY sOIFF 
A517 AS 31 LDA #31 


Verschiebeschleife 


Prograaezeile eınfugen 

CLPR-Betenl 

Prograsszeilen neu bınden 

Zeichen ıa Puffer ? 

neın, dann zur Eingabe-Warteschleife 


BASIC-Zeılen verschieben 
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332 
s2D 
s2E 
s0B 


SOIFC,Y 
(s5F3,Y 


30522 
5A659 
sA53J 
sA4B0 


$2B 
#2C 
22 
323 


8801 
(822) ,Y 
$A55F 
104 


(822) ,Y 
sA544 


$22 


500 
(#22) ,Y 
s23 
0800 


(822) ,Y 
#22 

$23 
sASIC 


#800 
sE1l2 
0s0D 
sA57& 
30200,X 


3359 
sA562 
017 
$A437 
FAACA 


(80304) 
sa 
.s04 
sor 


A519 A4 52 LDY 
AS1B 85 20 sTa 
ASıD 84 2£ str 
ASIF a4 0B LDY 
A521 88 DEY 
A522 B9 FC 01 LDA 
A525 91 5F STA 
A527 88 DEY 
A528 10 FB BPL 
AS2A 20 5? Ab JSR 
AS2D 20 33 AS JSR 
ASIO ac 80 A4 JnP 
LALZEIUZZSSZETTI SITES STITIT 
A533 AS 28 LDA 
ASSS Aa 2 LDY 
A537 85 22 STA 
A539 84 23 SsTY 
A558 18 [a 
ASIC a0 01 LDY 
AS3E Bt 22 LDA 
A540 FO ıD BEO 
A542 AO 04 LDY 
A544 c8 INY 
A545 Bi 22 LDA 
A547 Do FB BNE 
A549 c8 INY 
AS4A 98 TYA 
A54B #65 22 ADE 
ASAD AA TAX 
AS4E a0 00 LpY 
A350 91 22 STA 
A552 AS 23 LDA 
A534 69 00 ADC 
LERT c8 INY 
A557 91 22 STa 
A559 e& 22 STÄ 
ASSB 85 23 sTa 
ASS5D 90 DD BCC 
ASSF 60 RTS 
LELEZZERZEEZEEET TTS EEE 
A560 a2 00 LDX 
A562 20 12 Ei JSR 
A565 c9 0D cHP 
A567 FO 0D BEO 
A569 9D 00 02 STA 
AS&C [3:] INX 
AS&sD EO 59 cpX 
AS6F so Fi 8cl 
As7ı A2 17 LDx 
AST 46 37 44 JNP 
AS7b ac CA AA InP 
LAEEEEZEEZETETEUE TS ETEE EZ 
45797 6C 04 03 np 
ASTC A& TA LDx 
ASTE AO 04 LDY 
A580 84 OF SsTY 
A582 BD 00 02 LDA 


30200,X 


Zeichen aus Eıngabepuffer 
ıns Prograna kopieren 


CLR-Betehl 
Prograsszeılen neu bınden 
zur Eingabe-Warteschleife 


BASIC-Prograaezeılen neu binden 


Eingabe einer Zeile 


ein Zeichen holen 

RETURN-Taste ? 

ja, dann Eıngabe beenden 

leichen in Eingabepuffer speichern 


89%. Zeichen ? 

nein, weıtere leıchen holen 

Nuaner für "string too long‘ 
Fehleraeldung ausgeben 

Pufter aıt 80 abschließen, CR ausgeben 


Uawandlung einer Zeile in Interpreter-Kade 
JmP sA5STC 


Flag fur Hochkonsa 
Zeichen aus Puffer holen 
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ASBS 
A587 
A58F 
ASaB 
ASBC 
ASBE 
ASIO 
4592 
A594 
LELTN 
A598 
A59A 
ASSC 
ASsE 
ASAO 
ASA2 
LELE) 
ASAb 
A5AB 
ASAA 
ASAC 
ASAE 
ASBo 
ASB2 
A5B3 
ASBS 
A586 
A5B7 
ASBE 
ASBB 
ASBC 
ASBF 
AScı 
ASC3 
ASCc5 
ASC7? 
ASt? 
ASCA 
ASCB 
ASCE 
ASDı 
ASDS 
A5DA4 
AS5D& 
ASDE 
ASDA 
ASDC 
ASDE 
ASDF 
ASEI 
ASES 
ASES 
ASEB 
ASEA 
ASEC 
ASEE 
ASEF 
ASF2 
ASF3 
ASFS 


AO 


0 
0 


02 


(23 


BPL 
CnP 
BEQ 
INK 
BNE 
[1,12 
BEO 
STA 
np 
BEQ 
BIT 
Bv5 
cnP 
BNE 
LDA 
BNE 
cap 
Bcc 
cnP 
BCC 
sıY 
LDr 
siY 
DEY 
sTtı 
DEI 
INY 
INK 
LDA 
SEC 
sBC 
BEO 
cnP 
SNE 
ORA 
LDY 
IN 
INY 
STa 
LDA 
BEQ 
SEC 
SsBc 
BEO 
CnP 
BNE 
STA 
SEC 
SBC 
BNE 
STA 
LDA 
BEO 
cnp 
BED 
InY 
STA 
IN 
BNE 
LDx 


sASBE 
user 
sA5c9 


sA582 
020 
sA5c9 
s08 
vs22 
saseeE 
sor 
sASc9 
as3F 
sA5As 
099 
sasc9 
48330 
sASAc 
“SC 
sasc9 
71 
9.00 
soB 


sa 


#0200,X 


sA0OgE,Y 
sA5Bs 
8580 
sasrs 
soB 

[221 


sOlFB,Y 
SOLFB,Y 
sA609 


us3A 
sASDcl 
[EIT 
sAS5DE 
sor 


055 
sa5B2 
so8 
s0200,X 
sasc9 
so8 
sasc9 


s01FB,Y 


sASES 
7A 


keın BASIC-Kode ? 
Kode fur Pı ? 


“ Leerzeichen 


Hochkonaa 


"?' Fragezeichen 
durch Kode fur PRINT ersetzen 


0 
kleiner ? 


Zeichen ia Puffer 


eıt Befehisworten ın Tabelle vergleichen 


gefunden, BASIC-Kode gleıch Zahler +$80 


BASIC-Kode speichern 
und Statusregister setzen 
Ende, dann #ertig 


Trennzeichen ? 


DATA-Kode ? 


REM-Kode ? 
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ASF7 Eö OB INC $0B 


ASFF c8 INY 

ASFA 89 9D AO LDA $SAO9D,Y 

ASFD 19 FA BPL #ASF9? sıt Tabelle vergleichen 
ASFF 89 9E AO LDA $AO9IE,Y 

A602 DO B4 BNE $ASBB 

A604 BD 00 02 LDA 830200,X 

A607 10 BE BPL $ASC? 

A609 97 FD 01 STA sOIFD,Y 

A6s0C C& 7B DEC 57B 

As0E A? FF LDA #8FF Zeıger auf Eıngabepuffer - 1 
A610 85 7A STA 37A 

A612 60 RTS 


AEReeRITIEE TER Startadresse einer Programazeile berechnen 
Ab13 AS 28 LDA #28 


Ab15 A6b 2C LDdx s2C leiger auf Prograsaanfang 

A617 AO 01 LDY 8801 

Ab19 85 5F STAa $5F 

AblB 85 60 STA 860 

Ab1D Bi SF LDA ($5F),Y Lınk-Adresse high 

AbIF FO IF BEQ $A&40 gleich null, dann Ende, nicht gefunden 
AB2ı c8 INY 

A622 cB INY 

A623 AS 15 LDA 815 gesuchte Zeılennuaser high 
A625 di 5f CHP (#5F),Y art augenblicklicher vergleichen 
A627 90 18 BCC A641 kleiner, dann nicht gefunden 
Ab29 FO 03 BEO $As2E gleıch, dann Nummer low prüfen 
Ab2B 98 DEY 

A&2C Do 09 BNE 3A637 unbedingter Sprung 

Ab2E AS 14 LDA 514 

A630 88 DEY 

AbJ1 Dt 5F CHMP (835F),Y leilennusser low vergleichen 
Ab33 90 0C BCC KABA1 kleıner 

A635 FO 0A BEQ sAsal oder gleich C=1 

A637 88 DEY 

A638 BI SF LDA (s5F),Y 

AbSA AA TAX 

A63B 88 DEY Adresse der nachsten Prograsazeile 
A&SCc Bı SF LDA ($5F),Y 

A63E Bo D7 BES $A617 weiter suchen 

Ab40 18 CLC 

Ab4l 60 RTS 

Aalsaeekeanneeassunnsnaepeuene BASIC-Befehl NEW 

A642 Do FD BNE #AdAl 

Ab44 A? 00 LDA 8800 

AbAb AB TAY 

A647 91.28 STA {8#2B),Y 

A649 c8 INY Zweımal $00 an Prograsastart 
ABAA 91 28 STA ($2B),Y 

AdAC AS 2B LDA $2B 

Ad4E 18 CLC 

AbAF 69 02 ADC #802 

A651 85 20 STA #2D Variablenstart > Prograsastart + 2 
A653 AS 2C LDA $2C 

A655 69 00 ADC 8800 

A657 85 2E STA s2E 

A659 20 BE Ad JSR sASGE CHRGET-Zeiger auf Programmstart 
AdSC a9 00 LDA 9300 
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LAEZEEZEZZZZZZZETZSZ SIE SITZE I 2) 


sAs8D 
sFFE7 
$37 
#38 
833 
34 
320 
s2E 
s2F 
s30 
sJ1 
s32 
saßtD 
#519 
s16 


BSFA 


8500 
sIE 
s1C 


s2B 
usFr 
s7A 
s2C 
user 
478 


FABA4 
3A6A4 
vsAB 

3ALBD 
sA9&B 
A613 
40079 
$A&BB 
sAB 

A641 
30073 
$A96B 
sAbal 


14 
s15 
sAbC9 
usfF 


A6SE Do 2D BNE 
Abb0 20 E7 FF JSR 
Ab63 AS 37 LDA 
A&b65 As 38 LDY 
A667 85 33 STa 
Abb9 84 34 sTY 
AbbB AS 2D LDA 
A&bD AL 2E LDY 
AbbF 85 2F STA 
Ab7ı 84 30 stY 
A673 85 31 sTa 
A675 684 32 sıY 
A677 20 ıD AB JSR 
Ab7A A219 LDx 
AbTC 86 16 sTtı 
ABTE 68 PLA 
AbTF AB TAY 
A680 68 PLA 
A681 A2 FA LDr 
A683 JA TxS 
AbB4 48 PHA 
AbBS 98 TYA 
AbB&b 48 PHA 
A6B7 2900 LDA 
A&B? 85 3E STA 
AbBB 85 10 STA 
A&BD 60 RTS 
ALIELIEETEIETTIEEITIE ZU IETEN 
AdBE 18 £eLt 
AbBF AS 2B LDA 
Abs 89 FF ADL 
A693 85 7A STa 
A695 AS 2C LDA 
A6&97 69 FF ADC 
A699 85 7B STA 
A&9B 60 RTS 
ALTIEZTELETERTZEEFITETTE EIER 
ABIC 90 06 BcC 
ASIE FO 04 BEQ 
ABAO c9 AB CHP 
AbA2 Do E9 BNE 
AbA4 20 &B A9%_JSR 
AbAT? 20 13 A& JSR 
ABAA 20 79 00 JSR 
AbAD FO 0C BED 
ABAF C9 AB cHP 
AbBi Do BE BNE 
AbB3 20 73 00 JSR 
A6B& 20 &B A9 J5R 
A&B? Do 86 BNE 
AbBB 68 PLA 
AbsBC 68 PLA 
A&BD a5 14 LDA 
A6BF 05 15 ORA 
Ascl DO 06 BNE 
Asc3 a9 FF LDA 
Ast 85 14 STa 


$14 


BASIC-Befenl ELR 


CLALL alle 1/0 Kanäle rucksetzen 


String-Start auf BASIC-RAM Ende 


Varıablen-Ende = Varıablenanfang 


RESTCRE Betenl 


String-Descriptor Index rucksetzen 


Stackpointer inıtialisieren 


COKT sperren 


Prograaszeıger auf BASIC-Start 


BASIC-Start 


ainus | 


BASIC Beiehl LIST 

lıtter ? (Zeilennunner) 

nur LIST ? 

Kode fur '-' 

anderer Kode, dann SYNTAX ERROR 
Zeılennuseer holen 

Startadresse der Prograaazeile berechnen 
CHRGOT letztes Zeichen holen 
keıne lZeilennuaaer 

Kode für '-" 

neın, SYNTAX ERROR 

CHRGET nächstes Zeichen holen 
Zeilennuaner holen 


zweite Zeilennumaer gleich null ? 
nein 
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A&C7 
A6C9 
AsCB 
AscD 
A&CF 
Abd! 
AsD4 
A&D? 
A&DB 
AbDA 
AbDB 
A&DC 
A&DE 
A6EO 
AbE2 
AbE& 
AbE& 
AGEB 
ABER 
AbED 
AbEF 
AbFi 
A6FS 
AbF& 
A6FB 
A6bFA 
A&FC 
AbFE 
A700 
A701 
A703 
A705 
A707 
A708 
ATUA 
A7OB 
ATOC 
ATOE 
ATıo 
A712 
A714 


A717 
AMIA 
ATIC 
ATIE 
A720 
A722 
A724 
A725 
A727 
A728 
A7ıA 
AT2C 
AT2D 
ATZF 
A730 
A733 
A735 


as ıs sTa sı5 

a0 01 LDY 001 

B4 of STY sor 

BL SF LDA (s5F),Y 

FO 43 BEQ #A7ı4 

20 2C Ad  JSR sAR2C 

20 D7 AA JSR sAAD? 

ce INY 

BI SF LDA (85F),Y 

AA TAX 

ce INY 

BI 5F LDA (85F),Y 

cs ı3 CHP 815 

D0 04 BNE $AsE6 

Ea 14 CPX s14 

Fo 02 BEO $AsER 

Bo 2C BCS sA714 

84 49 STY 849 

20 CD BD JSR sBDCD 

A? 20 LDA 0920 

Aa 49 LDY 549 

29 7F AND 487F 

20 47 AB  JSR $AB47 

(9 22 caP 0622 

DO 06 BNE $A700 

AS OF LDA s0F 

a9 FF EOR O3FF 

85 or STa s0oF 

ce INY 

Fo ıl BEO #A714 

Bi 5f LDA (85F),Y 

Do 10 BNE #A717 

AB Tay 

Bı SF LDA (85F),Y 

AA Tax 

CB InY 

BI SF LDA (85F),Y 

B& SF STK sr 

85 60 STA #60 

Do BS BNE sAAC9 

ac 86 E3  JMP $EIBL 
LASSEN ZZEN KERZE ZEEZZEN SZ TZDER DT 

6C 06 03 INP 150306) 

10 07 BPL A&FY 

09 FF CHP usFF 

Fo 03 BEO A6F3 

24 0F BIT 0 

30 CF BMI AsFS 

38 SEC 

E9 7F SBC 1#7F 

AA rax 

84 49 STY 449 

ao FF LDY usFF 

ca DEx 

FO 08 BEQ 94737 

ce INY 

B9 9E AO LDA SAO9E,Y 

10 FA BPL $A72F 

30 F3 BMI sA72C 


bis zum Ende listen 


Linkadresse high 

Ja, fertig 

prüft auf Stop-Taste 

"CR‘ ausgeben, neue Zeile 


leilennuaner holen 


aıt Endnuaner vergleichen 


größer, dann fertig 


Zeilennnunaer ausgeben 
" Leerzeichen 


Zeichen ausgeben 
""" Hochkoaaa ? 


Hochkoaaaflag uadrehen 


keın Zeilenende nach 255 Zeıchen ? 
dann aufhören 

Zeichen holen 

keın Zeilenende, dann listen 


Startadresse der nächsten leile 


als Zeiger nerken 
weiter aachen 
zua BASIC-Warastart 


BASIC-Kode in Klartext unwandlen 
JMP sATIA 

kein Interpreter-Kode, so ausgeben 
Kode für Pi 

so ausgeben 

Hochkomaaaodus ? 

dann Zeichen so ausgeben 


Dttset abziehen 
Kode nach X 
Zeichenzeiger aerken 


erstes Betehlswort ? 


Offset für Xtes Befehlswort finden 


Bit 7 gesetzt, nächstes Wort 
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A737 [9] INY 
A738 B? GE AO LDA SAO9E,Y Befehlswort aus Tabelle holen 


A73B 30 B2 BMI SABEF letzter Buchstabe, dann fertig 
A730 20 47 AB JSR #AB4A7 Zeıchen ausgeben 
A740 00 F5 BNE 8A737 nächsten Buchstaben ausgeben 


adasunaıakateemrereasranenenne BASIC-Detehl FOR 


A742 A? 80 LDA 2880 Integer sperren 

A744 85 10 sta #10 

A74b 20 AS AI JSR SA9AS LET-Beienl, setzt FOR-Variable 
ATI 20 8A AI JSR sAJSBA suent offene FOR-NEXT-Schleife mıt gleıcher 
ATAC D0 05 BNE $A75J5 nıcht gefunden Varıabler 
ATAE : TIA 

ATAF 69 OF ADC es0r Stapelzeıger erhohen 

ATSI AA TAI 

A752 FA T1S 

A753 68 PLA Rucksprungadresse von Stack holen 
A754 68 PLA 

A755 a9 09 LDA 4809 

A757 20 FB AS JSR $ASFB pruft auf genugend Platz ın Stack 
A7SA 20 06 39 JSR $A90a sucht nächstes BASIC-Stateaent 
A75D iB cLc 

A7S5E 98 TYA Progrannzeıger auf nächsten Befehl 
ATSF 65 7A ADC s7A 

A761 48 PHA und auf Stack speichern 

A762 AS 7B LDA 97B 

A764 89 00 ADC 48006 

ATb6 46 PRA 

A767 LET LDA 53A 

A769 48 PRA laufende Zeilennusser auf Stack 
AT6A 45 39 LDA 839 

AT&C 48 PHA 

ATaD AF As LDA #5A4 "TO' - Kode 

AT6F 20 FF AE JSR SAEFF pruft auf Kode 

A772 20 BD AD JSR $sADBD prüft ob numerische Varıable 

A775 20 BA AD JSR sADBA holt numerischen Ausdruck nach FAC 
A7TB AS 66 LDA 06 

ATTA 09 7F ORA #87 F 

ATTC 25 62 AND #62 

ATIE 685 62 STA #52 

A780 AI 8B LDA 0568 

ATB2 ao AT LDY 0347 Rücksprungadresse aerken 

ATBA 85 22 STA #22 

A7B6 84 23 STyY 823 

A7a8 4C 43 AE JNP sAEAS tegt Schlerfenendnert auf Stack 
ATBB A9 BC LDA usBC 

A7OaD AO BI LDY 25B? Zeiger auf Konstante | 

ATBF 20 A2 BB JSR SBBA2 als Default-STEP-Wert in FAC 

4792 20 79 00 JSR 80079 CHREOT Letztes Zeichen holen 

4795 c9 A9 CHP 0847 "STEP' - Kode 

A797 DO 06 BNE 6A7SF kein STEP-Wert 

A799 20 73 00 JSR 80073 CHRGET nächstes Zeichen nolen 
A7IC 20 8A AD JSR $ADBA holt numerischen Ausdruck nach FAL 
A7IF 20 28 BC JSR sBC2B holt Vorzeichen 

ATA2 20 38 AE JSR SAEIB legt Vorzeichen und STEP-Wert auf Stack 
ATrAS AS 4A LDA $4A 

A7A7 48 PHA Variablennase 

A7AB as 49 LDA 849 

ATAA 48 PHA 

ATAB a9 81 LDA 0881 und FOR-Kode auf Stack 
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A7AD 48 PHA 


AAZELEZ ZEZZEZZEZZZEZZEZ ZEN DZ ZZ 


ATAE 20 2C AB JSR #AB2C 
A7BL AS 7A LDA $7A 
A7B3 A4 TB ıLDyY 875 
ATBS co 02 CPY #802 
A7B7 EA NOP 

A7BB FO 04 BEO SA7BE 
ATBA 85 3D STA 8#3D 
ATBC 84 JE STY s3JE 
ATBE AO 00 LDY 8800 
A7CO Bl 7A LDA (#7A) ,Y 
A7C2 00 435 BNE #A807 
A7Ca AO 02 LDY 8602 
ATC6 BI 7A LDA (87A),Y 
A7CB 18 cıLc 

A7C9 Do 05 BNE 3A7CE 
ATCB 4C 4B AB JNP #AB84B 
ATCE c8 INY 

ATCE Bt 7A LDA (87a) ,Y 
ArDı 85 39 STA #39 
A7DI c8 INY 

A7Da Bi 7A LDA (87A),Y 
A7D6& 85 JA STA #35A 
A7DB 8 TYA 

4709 65 TA ADC 87A 
A7DB 85 7A STA $7A 
A7DD 979.02 BCC SATEI 
A7DF E& 7B INC $7B 
ATEI 66 08 03 JNP (80308) 
ATEA 20 73 00 JSR 40073 
ATET 26 ED A7 JSR $A7ED 
ATEA ac AL AT JMP SA7AE 


AEBERZZZEZENZZERZERZEZZET ER ZZ 2 3 


ATED FO SC BED $AB2B 
ATEF EI 80 SBC 4580 
ATFI sot BCC $ABO4 
A7FTZ (9 25 cnP 0823 
ATFS 80 17 BCS SABOE 
A7F7 oA AaSsL A 

ATFO8 AB TAY 

ATFF 89 0D AO LDA $AO0D,Y 
ATFC 48 PHA 

ATFD BF 0C AO LDA $AOOC,Y 
ABOO 48 PHA 

AB01 4C 73 00 JnP 80073 
A604 ac n5 A9 JMP SA9AS 


KEURTERRREREUSERERERTURRRRULDEE 


A807 c9 3A CHP #83A 
A809 FO D& BED SA7EL 
A8OB 4C 08 AF JNMP 9AFOB 
LAZZEZERZTESZTETELSEITTER DET) 
ABOE c9 4B CHP 8846 
ABLO Do FF BNE #AB0B 
AB12 20 73 00 JSR 90073 
ABIS AI As LDA @$A4 


Interpreterschleife 
prüft auf Stop-Taste 


Progranazeiger 
Direkt-Modus ? 


ja 
als Zeiger #ür CONT merken 


laufendes leıchen 
nicht Zeilenende ? 


Prograanende 
Flag für END setzen 


ya dann END ausfuhren 


laufende Zeilennusaer aerken 


Progranazeiger auf Prograsazeıle setzen 


JMP sA7EAS BASIC-Stateaent ausführen 
CHRGET nachstes Zeichen holen 
Statesent ausführen 

zurück zur Interpreterschleife 


BASIC-Statenent ausführen 
Zeilenende, dann fertig 
Ioken ? 

neın, dann zus LET-Betenl 


Funktions-Token oder 60 TO 
BASIC-Befehl, Kode nal 2 
Befehlsadresse aus Tabelle holen 
als Rücksprungadresse auf Stack 


nächstes Zeichen und Befehl ausführen 
zum LET-Befehl 


"syntax error’ 


prüft auf ‘60’ 'T0’ Kode 
"60° teinus $80) 


CHRGET nächstes Zeichen holen 
“To. 
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ABI? 20 FF AE JSR $AEFF 
ABIA 4C AO AB JNP sABAO 
LLIETERTEZETTSEESTTTESZERZII ET 
ABID 38 SEC 

ABIE a5 2B LDA $2B 
AB20 E3 01 SBC @801 
A922 A4 2C LDY 82C 
A824 80 01 BCS 84827 
A826 88 DEY 

A827 85 41 STA s4ı 
A829 B4 42 STvY 342 
AB2B 60 RTS 
[IKEEKEITTIETSTTERIET SITES ETTT 
AB2C 20 Ei FF JSR sFFEI 
LESITIEERSTIZTEIERTIT ET II EI TE 
AB2F BO 01 BCS $AB32 
[LIETEERETEITIERTITIT STETTEN 
ABIi 18 cuc 

AB32 Do SC BNE 8A870 
ABSA AS TA LDA 57a 
ABI& AA TB LDY 67B 
A838 Ab IA Lbxr 83A 
ABIA E8 InX 

ABSB Fo 0C BEO sAB49 
ABSD 85 3D sTa s3D 
ABSF 84 3E STtyY ssE 
ABal a5 39 LDA $39 
A843 As 3A LDY 83A 
A845 85 38 STA #3B 
AB4T 84 SC 5TY 83C 
A843 68 PLA 

ABAA 68 PLA 

AB4B a9 Bl LDA 9381 
ABaD a0 A3 LDY #3A3 
AB4F 90 03 BCC $A854 
ABS1 °C 69 94 JMP 5A469 
AB54 4C 85 EI JnP sEIB6 
LUILLIETERZTEEETETEEIIT EEE 
ABS? Do 17 BNE $AB7O 
A839 A2 1A LDı u81A 
ABSB as JE LDY 83E 
ABSD Do 03 BNE #A862 
ABSF 4C 37 94 JNnP 5A437 
ABs2 AS 35D LDA 830 
AB64 85 7A STA 87a 
AB6& 84 7B STY 878 
ABsB AS 3B LDA $3B 
AB6A A4 Sc LDY 83C 
AB&C 83 39 STA 839 
ABöE 84 3A STY 83A 
AB70 60 RTS 
AREURSEBFUERTERTTERRRRRITTERER 
AB7ı 08 PHP 

A872 AF 00 LDA 4800 


prüft auf Kode 
zua 6010-Befehl 


BASIC-Befehl RESTORE 


Prograanstart - 1 


gleıch DATA-le:ger 
pruft auf Stop-Taste 
Stop-Taste abfragen 


BASIC-Betenl STOP 
C=l Flag für STDP 


SaStC-Befehl END 

cC=0 Flag fur END 

Progranmzeiger 

Dırekt-Modus ? 

Ja 

leıger für CONT setzen 

Nuaaer der laufenden Zeile 

als Zeılennuaner tür CONT nerken 


Rücksprungadresse von Stack holen 


leıger auf 'break' 
END Flag ? 
neın, ‘break in xıw' ausgeben 


zum BASIC-Warastart 


BASIC-Betehl CONT 
Fehlernusaer für 
CONT gesperrt ? 
nein 

Fehlerseldung ausgeben 


"CAN'T COKTINUE 


Programazeiger 
und 


leilennusaer setzen 


BASIC-Befehl RUN 
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AB74 20 90 FF JSR $FF9O 
A877 28 PLP 

A878 Do 03 BNE #A87D 
AB7A ac 59 Ab JMP $A559 
AB7D 20 60 Ab JSR SAb6O 
ABBO 4C 97 48 JNP $A897 
BAERETTETRERTSSUTERTRRT IRRE TA 
ABBI A9 03 LDA #805 
AB85 2090 FB AS JSR SASFB 
ABBB a5 78 LDA $7B 
ABBA 48 PHA 

A8B8 #5 7A LDA $7A 
ABBD 48 PHA 

ABBE AS 3A LDA $3A 
890 48 PHA 

LI:E31 AS 39 LDA 339 
A893 48 PHA 

A894 A? 8D LDA us8D 
A895 48 PHA 

A897 20 79 09 JSR 80079 
aB9A 20 AO AB JSR SABAO 
ag9D 4C AE A7 JNMP SATAE 
VRREUDEBURERUBITRRRERRRRRR EIER 
ABAO 20 6B A9 JSR HAI&B 
ABAI 20 09 A9 JSR #A909 
ABAb 38 sec 

ABA7 AS 39 LDA 839 
ABA? ES 19 SBC $14 
ABAB AS 3A LDA #3A 
ABAD ES 15 SBC $15 
ABAF 60 08 BCS SABBC 
ABBi 98 TYA 

A8B2 8 SEC 

ABB3 3 7A ADC 87A 
ABB5S Ad 7B LDX #7B 
AdB7 90 07 BCC sABCO 
ABB? E8 INX 

ABBA Bo 04 BCS sABCO 
ABBC AS 2B LDA #28 
ABBE Ad 2C LDX s2C 
ABCO 20 17 Ab JSR #A517 
ABCI 90 IE BCC sABEI 
AaCS As SF LDA s3F 
ABC? E39 01 SBC e#01 
ABC? 85 7A STA $7A 
ABCB AS 60 LDA 860 
ABCD E? 00 SBC 9600 
ABCF 85 7B STA #7B 
Audi 60 RTS 

LLZL SITES ETERTEREIZEITEETETET 
ABD2 Do FD BNE sABDI 
AaD« a9 FF LDA asFF 
ABDE 85 4A STA $4A 
ABDB 20 BA AJ JSR HAJBA 
ABDB 9A T18 

ABDC c? 80 CHP a8s0D 


Flag für Prograna-Modus setzen 


weitere Zeichen (leilennunser) ? 
Progranazeiger auf Progranastart, CLR 


CLR-Betehl 
GOTO-Befehl 


BASIC-Befehl 60SUB 
prüft auf genügend Platz is Stack 


Prograsazeiger 

und Zeilennurnaer serken 
"G0SUB’-Kode auf Stack 
CHR6OT letztes Zeichen holen 


60TO-Befehl 
zur Interpreterschleife 


BASIC-Betehl S0TO 
Zeılennumaer holen nach #14/819 
nächsten Zeılenantang suchen 


ist Zeilennuaaer kleiner als laufende Zeile ? 


nein 


sucht ab laufender leile 


sucht ab Programastart 
sucht Progranazeile , 
nient gefunden, dann 'undet 'd stataent 


Prograaazeiger auf neue Zeile setzen 


BASIC-Betfehl RETURN 


nächsten S0SUB-Datensatz ia Stack suchen 


"808UB '-Kode 
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ABDE FO 0B BER sSABEB gefunden ? 


ABEO a2 0C LDx @80C Nusaer für 'return without gosub’ 
AEE2 2C ‚BYTE 82C 

REES a2 11 LDı 8802 Nuaaer für 'undet'd statenent 
ABES ac ST Ak JMP $A437 Fehlerseldung ausgeben 

ABEB ac 08 AF JmP sAFOR "syntax error’ ausgeben 

ABEB 68 PLA 

ABEC 68 PLA 

ABED 85 39 STAa 339 

ABEF 68 PLA Zeılennusaer von Stack holen 
ABFO 85 3A STA $JA 

ABF2 68 PLA 

ABFI e5 7A STA 57A 

ABFS 68 PLA Progranazeıger von Stack holen 
ABFb 85 78 STA $78 

Darren BASIC-Befehl DATA 

ABFB 20 0 A9 JSR #A90& nächstes Statenent suchen 

ABFB 98 TYa Ottset 

ABFC 18 £LC 

ABFD 65 7A ADC 87a 

ABFF 85 7A STA 87A 

A901 90.02 BCC 84905 zu Prograsazeiger addieren 
A903  E& 7B INC $7B 

A905 60 RTS 

Teer Offset des nachsten Trennzeichens fınden 
A906 A2 ISA LDX 0855A “:" Doppelpunkt 

A908 2C „BYTE 82C 

A90° A200 LDı 0800 #0 Zeılenende 

A90Ob 86 07 S5TX 807 

As0D AO 00 LDY 9800 Y enthält Offset 

AIOF 84 08 STY 808 

asıı AS 08 LDA 08 

AT A& 07 LDX 807 gesuchtes leıchen 

A915 85 07 STA #07 

4917 85 08 sTı #08 

A919 Bi 7A LDA (#7A),Y Zeichen holen 

AP1B FO EB BEO #A905 Zeilenende, dann fertig 

AFID C5 06 CHP 868 

AsIF FO E4 BEQ $A905 

A921 c8 INY Zeıger erhahen 

A922 c9 22 Cnp 0322 “> Hochkoasa 

AI24 D0 F3 BNE #A919 

A926 FO EI BEO sAs1ı 

sauer ana ra BASIC-Befehl IF 

A928 20 9E AD JSR sADIE FRMEVL Ausdruck berechnen 
A92B 20 79 00 JSR 830079 CHRGOT letztes Zeichen 

AF2E 7 89 CHP ns6? "60T0°-Kode 

A930 Fo 05 BEO A937 ja 

A932 AI A7 LDA 4547 "THEN '-Kode 

A934 20 FF AE JSR SAEFF prütt auf Kode 

A937 AS 61 LDA $61 Ergebnis des IF-Ausdrucks 

A939 DO 05 BNE #A940 Ausdruck wahr ? 
IEKZENEZEZEZEEEZZZEZZZZE SEE ZI BASIC-Befen] REM 

A93B 20 09 A9 JSR A909 nein, nächsten Zeilenanfang suchen 
AIISE FO BB BEQ sABFB Prograanzeiger aut nächste Zeıle 
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A940 20 79.00 JSR 30079 CHREOT Ietztes Zeichen holen 


A943 BO 03 BCS SAI48 keine Zitfer ? 
A945 AC AO AB JMP sABAO zun 60TO-Befehl 
A948 ac ED A? INMP sATED nächsten Betehl dekodieren und ausführen 


ars nee BASIC-Befen| DON 


ATAB 20 9E B7 JSR 5B79E Byte-kert (0 bis 235) holen 
AI4E 48 PHA Kods aerken 

ATAF 9 80 CHP #880 "60SUB '-Kode 

A951 FO 04 BEO 84957 ya 

A953 C9 89 CHP #889 "6010 °-Kade 

A955 20 BNE sABEB mein, dann 'syntax error‘ 
4957 C6 #5 DEC $65 lähler ernıedrigen 

A957 DO 04 BNE $A9SIF noch nicht null ? 

A95B 68 PLA Ja, Kode zurückholen 

AISC ac EF A? JMP $ATEF und Befehl ausführen 

Aa95sf 20 73 00 JSR 80073 CHRGET nächstes Zeichen holen 
A962 20 6B A9 JSR sAI6B Zeilennuaner holen 

A965 CI 2C CHP as2C "," Koama ? 

A9b7 FO EE BED $A957 ja, dann weiter 

A969 48 PLA kein Sprung, Kode zurückholen, tertig 
AIAA 60 RTS 


rare tareadssteruenseernnenee holt leilennunner nach 814/815 


A96B A2 00 LDX 2300 

A9I6D 86 14 ST #14 

AILF 86 15 SsTı $15 Vorbesetzung für Zeilennunner gleıch O0 
A97ı BO F? BCS #A9I6A keine Ziffer, dann fertig 
A975 E9 2F SdC Ns2F ‘0°-t abziehen, gibt Hexwert 
A9TS 85 07 STA 807 aerken 

A977 45 15 LDA 815 

A979 85 22 STA 822 

A97B c7 19 cHP 0819 Zahl bereits großer oder gleich 6400 ? 
A970 Bo 04 BCS #953 dann ‘syntax error’ 

A9TF a5 14 LDA #14 

A9BI 0A ASL A 

A982 26 22 ROL #22 Zaht 110 = a2r2+tlahl #8 2) 
A9B4 0A ASt A 

A9B5 26 22 ROL #22 

A9B? 65 14 ADC 814 

A989 85 14 Sta sıa 

AFBB AS 22 LDA 822 

A9BD 65 15 ADC 615 

A9IBF 85 15 STA #15 

LEI 06 14 ASL #14 

4993 26 15 ROL #15 

A995 As 14 LDA 14 

A997 65 07 ADC $07 und Eınerzitfer addıeren 
A999 85 14 STA #14 

A99B 90 02 BCC KAF9IF 

AI?FD Eö& 15 INC $15 

AIIF 20 73 00 JSR 80073 CHRGET nächstes Zeichen holen 
ASA2 ac 7199 JMP #A971 und weiter nachen 

aaa aeneeeuseunausenrunnn  BASIC-Befehl LET 

A9AS 20 8B BO JSR #BOBB sucht Varıable 

AFAB 85 49 STA 949 

AIAA 84 4A STtY 34A Variablenadresse merken 

AFAC a9 B2 LDA a#B2 a‘ - Kode 


161 


ASAE 20 FF AE JISR SAEFF 
AsB1 A5 0E LDA s0E 
A9B3 48 PHA 

A924 a5 0D LDA s0D 
AFBS 8 PHA 

A987 20 9E AD JSR SADIE 
AFBA 68 PLA 

A9BB 2A RoL A 
AFEL 20 30 AD JSR sAD90 
ASBF DO 18 BNE KA9IT 
ascı 68 PLA 

Aac? 10 12 EPL sA9DE 


LITZEZEZKZESZEZEZZESZZEN ZZ ZI 


AITA 20 ıB BC JSR KBC! 
ASC? 20 BF 81 JSR #BIBF 
A®CA ao 00 LDY #800 
AICC AS 64 LDA 568 
ASCE 3149 STA ($89),r 
A9DO c8 INY 

A9dl AS 65 LIA 565 
A®DI 9189 STA (EN). Y 
A9D5 60 RTS 


LEIELLILEEZETITEITETEETEIETETTT 
A9Db 4C DO BE JmP sBBDO 


var..„.nn.n„.un.. rn... 


A909 68 PLA 

AIDA AS 4A LDY 54A 
ADC co BF CPY #8BF 
ASDE DO AC BNE SAAZT 
AIEO 20 Ab Bb JSR #BaAb 
ASEI  C9 06 CHP 0806 
AgES DO SD BNE SAA2S 
AIE? AO 09 LDY 0800 
AIEI B4 61 STY sb1 
ASEB 84 66 STY 866 
AsED 84 71 SstY ımı 
AgEF 20 ID AA JSR sSAALD 
AaF2 20 EZ BA JSR SBAEZ 
A9FS Eb 71 Inc 971 
A®F7 Ak 71 LDY s7ı 
AFFI 20 ID AA SR SAAID 
AIFC 20 0C BC JSR 3ECOC 
ASFF AA Taı 

AAOO FO 05 BEQ $AA07 
AAO? EB INX 

AAOoI 8A TXA 

AAOA 20 ED BA JSR sBAED 
AAO? aaa LDY #71 
AAOF ca INY 

AAOA co 06 EPY 806 
AAOC Do DF BNE $AIED 
AAOE 20 E2 BA JSR #BAE2 
AA 20 9B BC JSR 8BC9B 
AAı4 Ab 64 LDX 864 
AAlb Ad 63 LDY 865 
AAIB AS 65 LDA 865 
AAIA 4C DB FF JMP sFFDB 


prüft auf Kode 
Integer-Flag 


und Typ-Flag (String/nunerisch) 


FRMEVL Ausdruck holen 


Typ-Flag zurucinolen 
ung auf rıchtigen Typ prufen 


REAL ? 


Wertzumweisung INTEGER 


F&AC runden 
und nach INTEGER wandlen 


Mert ın Variable bringen 


Kertzumeisung REAL 
FAC nach Variable bringen 


Wertzumeisung String 


Varıablenadresse high 
ist Varıable Tif ? 

nein 

FRESTR 

Stringläange gleıch 6 
neın, "illegal quantity’ 


prutt nächstes Zeichen auf Ziffer 
FAC = FAC # 10 
Stellenzahler erhöhen 


prüft nächstes Zeichen auf Zlifter 
FAC nach ARG kopieren 


FAC gleich null ? 
FAC = FAC + ARG 
Stellenzähler 
erhöhen 


schon & Stellen ? 


FAC = FAC 3 10 
FAC rechtsbündig aachen 


eingegebene Uhrzeit 


Tise setzen 
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merken 


asus ba raten Zeichen auf Ziffer prüfen 


AAID Bl 22 LDA 1822) ,Y7 Zeıchen 

AAIF 20 80 00 JSR 80080 auf lıfter prüfen 

AA22 20 03 BCC 8AA27 

AA24 4C 48 B2 JnF 18238 "ıllegal quantıty' 

AA27 E9 2F SEC 032€ on ASCII nach hex unwandlen 
AA29 4C 7E BO JMP $BD7E ım FAC und ARG übertragen 


LAELZEZZZ ER ZZ ZZ ZEIT EZ Wertzumersung an norsalen String 
AA2C A002 LDY 0502 


ARZE Bl 64 LDA ($64),Y Stringadresse hıgh 

AASO C5 34 CHP sa ait Stringanfangsadresse vergleichen 
Aaay2 °0 17 3CC s#AA4B hleıner, String steht ınnerhalb Prograne 
AASA Do 07 BNE $AASD 

AAIo 88 DEY 

AAST Bi 64 LDA (864) ,Y Stringadresse lom 

AA? 05 35 CHP 533 vergleichen 

AASB 29 0E BCC sAA4AB String ie Programs 

AASD AA 45 LDY 885 

AAIF c4 Ze CPY s2E 

ARAI 90 08 BCC SAAB 

AA4S D0 00 BNE sAAS2 

AA4S AS 64 LDA #64 

AA4? c5 2D ENP $2D 

AA9I Bo 07? BCS 1AAS2 

AA4B 45 64 LDA #64 

AAID A4 65 LDY #65 

AAAF 4C 6A AA JMP sAA6B 

AAS2 AO 00 LDY 8800 

AAS4 BI 64 LDA (864) ,Y Lange des Strings 

AAS& 20 75 B4 JSR 98475 prüft Speicherplatz, setzt Stringzeiger 
AAs9 a5 50 LDA 530 

AASB As Si LDY 651 

AASD B5 6F STA #6F 

AASF 84 70 sTY #70 

AABbI 20 7A B6 JSR 8#867A String in Stringbereich übertragen 
AAbA A9 61 LDA 0861 

AAb6 AO 00 LDY n600 

LLTT] 85 50 STA 350 

AABA 84 51 STy s51 

AASC 20 DB Bo JSR $B&DB Descriptor aus Stringstack loschen 
AAsF AO 00 LDY 8800 

Aaa7ı 81 50 LDA (#30) ,Y Länge 

AA7I 97149 STA (849) ,Y 

AA7S CB INY 

AA7E Bl 30 LDA 1850) ,Y Adresse lon 

AATB 9149 STA (8491 ,Y 

AATA c8 INY 

AATB Bi 50 LDA (850) ,Y und Adresse high 

AATD 9149 STA (#49) ,Y in Variable bringen 

AATF 60 RTS 

aereakersuereruneentuaenenennn  BASIC-Botehl PRINTE 

AABO 20 B& AA JSR sAABk CHD-Befehl 

AABI 4C B5 AB JMP sABBS und CLRCH 

arnassankaransnaera nern BASIC-Defehl CMD 

AAB& 20 ®?E B7 JSR 6B79E holt Byte-Ausdruck 

LUD) FO 05 BED HAAFO 

AABB A9 2C LDA-a$2C nn 
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AABD 20 FF AE JSR SAEFF prüft auf Konna 


AAIO 08 PHP 

aası 86 13 ste $13 Nunaer des Ausgabegerats nerken 
AA93 20 !8 Ei JSR KEI1S CKOUT, Ausaabegerat setzen 

AAIa 28 PLP 

AAST 4C AO AA JMP SAAAO zua PRINT-Beien] 

AAIA 20 21 AB JSR sAB21 String drucken 

AAID 20 79 00 JSR 80079 CHREOT letztes Zeichen 


Aare nee BASIC-Befen]l PRINT 


ARAO FO 35 BEG sAAD? 

AAA2 FO 43 BER sAAET 

anna CI AI CHP aaa) "TABC'-Kode 

AAAb FO 50 BEO SAAFB 

AAAB CI Ab CHP #$A6 "SPCC'-Kode 

AAAA 18 cLc 

ARAB FO 4B BEO sSAAFO 

AAAD 9 2C cnP 8s2C 

ARAF Fo 37 BEO sAAES 

AABI c9 38 cHP #55B 

AAB3 FO SE BEO SABIS 

AABS 20 9E AD JSR sAangE ERMEVL Term holen 

AABB 24 0D BIT $0D Typtlag 

AABA 30 D£ BMI SAAPRA String ? 

AABC 20 DD BD JSAR sBDDD FAC ın ASCII-String umwandeln 
AABF 20 87 B4 JSR $B487 Stringparameter holen 

AACc2 20 21 AB JSR saB21 tring drucken 

AACS 20 TB AB JSR SABIB Cursor rıght bzw. Leerzeichen ausgeben 
AACB Do 83 BNE SAAID weıter machen 

AACA a9 00 LDA e100 Eingabepuffer 

AALC 9D 00 02 STA 80200,X eıt #0 abschließen 

AACF AZ FF LDX esFF 

AADI AO 01 LDY as01 Zeıger auf Eıngabepuffer setzen 
AADS AS 13 LDA 813 Nunaer des Ausgabegeräts 
AADS D0 10 BNE SAAE? 

AAD? a9 00 LDA #300 "CR’ carriage return 

AADF 20 £7 AB JSR $ABA7 ausgeben 

AADC 24 15 g1T 813 logische Fılenunner 

AADE 10 05 BPL SAAES kleiner 128 ? 

AAEO A? 0A LDA 980A "LF’ line feed 

ARE2 20 47 AB JSR sABAT7 ausgeben 

AAES a9 FF EOR WSFFf 

AAET7 60 RTS 

AREB 38 SEC Zehner-Tabulator aıt Komna 
AAET 20 FO FF JSR AFFFO Cursorposıtion holen 

AAEC 98 TYA 

AAED 38 13" 

AAEE E39 0A SBL a50A 10 auzıehen 

AAFO 80 FC BCS SAAEE richt negatıv ? 

AAF2 a9 FF EOR sFr invertieren 

AAFA4 69 01 ADC 9501 eins addıeren 

AAF& DO 16 BNE $SABOE 

IEZEEEZEZENZEZEZZESZZZZEZEI ZZ ZZ TABL tCal) und SPCt (C=0) 
AAFB 08 PHP Flag merken 

AAF® 38 SEC 

AAFA 20 FO FF JSR SFFFO Cursorposition holen 

AAFD 84 09 sTY 809 und nerken 

AAFF 20 9B B7 JSR 9B79B Byte-Wert halen 

ABO2 09 29 tcnP 05297 ")’ Klanner zu ? 
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ABOA4 DO 59 BNE sABSF neın, 'syntax error’ 


ABOs 28 PLP 

ABO? 90 06 BEC $ABOF zu 5SPCt 

AB09 9A TxA TAB-Wert in Akku 

ABOA ES 09 SBC 509 eıt Cursorposıtıon vergleichen 
ABOC 20 05 BCC sABIS Wert kleıner Lursor-Posıtion, dann fertıg 
ABOE AA Tax 

ABOF E8 INK 

ABIO CA JE 

ABl Do 06 BNE sAB1I 

AB13 20 73 00 JSR 80073 CHRGET nächstes Zeichen holen 
ABI& °C A2 AA JNMP $AAA2 und weiter aachen 

AB1L? 20 53B AB JSR SABJB Cursor rıght bzw. Leerzeicnen ausgeben 
ABIC 00 F2 BNE FABIO zum Schlertenantang 
AriiTaEBeeRRae re String ausgeben 

ABLE 20 87 B4 JSR 8487 Stringparameter holen 

AB21 20 Ab B& JSR #B6A& FRESTR 

AB24 aA Tax Stringlänge 

AB25 AO 00 LDY 4800 

AB27 EB INX 

AB2B ca DEX 

AB29 FO BC BEQ sKAAET String zu Ende ? 

A828 Bl 22 LDA (522),Y Zeichen des Strings 

aB2D 20 47 AB JSR $AB47 ausgeben 

ABIO c8 INY 

ABSL c9 0D CHP AsOoD "CR’ carrıage return 

AB33 Do F3 bNE KAB2B nein, weiter 

ABSS 20 E5 AA JSR HAAES Fehler ' Test auf LF-Ausgabe JSR SAADC 
ABSB 46 28 AB JMP #AB2B und weıter machen 
Autnarıkhatesaeeean nenn Ausgabe eines Leerzeichens bzw. Cursor right 
ABSb AS 13 LDA 4113 Ausgabe ın Fıle ? 

ABSD FO 03 BEQ #AB42 neın Bildschire, dann Cursor right 
ABSF A9 20 LDA 4820 “ "Leerzeichen 

ABAL 2C .BYTE $2C 

ABA2 AI ıD LDA #81D Cursor right 

AB44 2C .BYTE 8#2C 

ABIF a9 If LDA B85F ‘?' Fragezeichen 

AB4AT7 20 0C Et JSR sEIOC ausgeben 

ABAA 29 FF AND A8FF Flags setzen 

ABAC 60 ARTS 

Ketatinekeisenknunnenaemaeneeet  Fehlerbehandlung bei Eingabe 
ABAD AS LDA $ı1 Flag für INPUT / GET / READ 
ABAF FO AI BEQ $AB&2 INPUT 

ABSı 30 04 Bnt sABS7 READ 

ABSJ AO FF LDY MSFF 

ABSS Do 04 BNE $ABSB GET 

UuanaeadaeRsneenar nern Fehler bei READ 

ABS? AS IF LDA s3F DATA-Zeilennumser 

ABS? As 40 LDY 840 

Kasbaaaasarekanenanehentatnın Fehler bei BET 

ABSB 85 59 SsTAa 839 

ABSD 84 3A SıY $3A gleich Zeilennuaaer des Fehlers 
ABSF 4C 08 AF JMP sAFOB “syntax error 
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LEE ZZZ ZIEL ZEZZZZZ ZEILE ZEZ ZZ ZZ ZZ 


AB&2 AS 13 LDA 
ABs4 Fo 05 BEQ 
AB66 a2 18 Ldı 
ABöS8 ac 37 A4 JNP 
ABöB Aa? 0E LDA 
ABöD ao AD LDr 
AB6F 20 IE AB JSR 
AB72 AS 3D LDA 
AB74 as JE LDY 
AB7& 85 7A sTa 
AB78 e4 7B etr 
AB7A 60 RTS 
LLITEZZTETTTTTTERTETERTIEREITT 
AB7B 20 Ab BI JSR 
ABTE 69 23 cnP 
ABBO Do 10 BNE 
ABS2 20 73 00 JSR 
ABBS 20 9E 87 JSR 
ABB AI 2C LDA 
ABBA 20 FF AE JSR 
ABBD B& 13 STX 
ABOF 20 IE Ei SSR 
AB92 A201 Ldı 
AB94 AO 02 LDY 
ABIb AP 00 LDA 
ABIB 8D 01 02 sta 
AB9IB AI 40 LDA 
AB9D 20 of AC JISR 
ABAO Ab 18 LDı 
ABA2 Do 13 BNE 
ABA& 60 RT5 
LEITIEZZEETTITEZERTZITEITET ET 
ABAS 20 ®E 87 J5R 
ABA a9 2C LDA 
ABAA 20 FF AE J5R 
ABAD B6 13 sTı 
ABAF 20 IE Ei JSR 
ABB? 20 CE AB JSR 
ABBS AS 13 LDA 
ABB? 20 CC FF JSR 
ABBA A2 00 LDX 
ABBC 86 15 STx 
ABBE 60 RTS 
LEKELZUTERZELZEIEITTTERTEREETE 
ABBF (9 22 cHP 
ABCI Do 0B BNE 
ABCS 20 BD AE JSR 
ABC& A9 3B LDA 
ABCB 20 FF AE JSR 
ABCB 20 21 AB JSR 
ABCE 20 Ab B3 JSR 
ABDI A? 2C LDA 
ABDS 80 FF 01 STA 
ABD& 20 FF AB JSR 
ABDI a5 13 LDA 
ABDB Fo 0D BED 


$15 
sAB&B 
#sıB 
3A437 
s0C 
“san 
$sABIE 
s3D 
ıSE 
sTA 
s?B 


3B3A& 
0823 
5AB9? 
30075 
1879€ 
#s2C 
sAEFF 
sı3 
SEIIE 
4501 
#02 
4100 
0201 
80 
SACOF 
#13 
sABB7 


3879E 
as2C 
sAEFF 
s13 
sEllE 
sAECE 
sıy 
sFFCC 
0800 
15 


1322 
sABCE 
$AEBD 
“s3B 
sAEFF 
sAB21 
3B3A6 
as2Cc 
SOlFF 
sABF® 
sı3 
+ABEA 


Fehler beı INPUT 

Nusaer des Eingäbegerats 
Tastatur ? 

Nuaner fur 'tıle data‘ 
Fehleraeldung ausgeben 


leıger auf '?redo #rom start 
Strıng ausgeben 


Prograsazeıger zuruck 


auf INPUT-Befenl 


BASIC-Berehl GET 

Testet auf Dırekt-Modus 

re 

nein ? 

CHRGET nächstes Zeichen holen 
Syte-Wert holen 

",' Konaa 

prut* aut Kode 


CHKIN 


Zeiger auf Pufferende = 8201 eın Zeıchen 
Pufter nıt $0 abschließen 


GET-Flag 

Wertzuweisung an Varıable 
Eingabegerät 

nıcht Tastatur dann CLRCH 


BASIC-Befenl INPUTU 
holt Byte-Nert 


' 
prüft auf Konaa 
Eıngabegeraät 

CHKIN 

INPUT ohne Dialogstring 


CLRCH setzt Eıngabegerät zurück 


Eıngabegerat nıeder Tastatur 


BASIC-Befehl INPUT 
""" Hochkoaaa 

nein 

Dialogstrıng holen 

";" Semikolon 

pruft auf Kode 

String ausgeben 

prütt auf Direkt-Nodus 
",’  Koasa 

an Pufferstart 
Fragezeichen ausgeben 
Nunser des Eingabegeräts 
Tastatur ? 
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ABDD 
ABEO 
ABE2 
ABES 
ABE7 


ABEA 
ABED 
ABEF 
ABFI 
ABFIJ 
ABF& 


ABF® 
ABFB 
ABFD 
ACOO 
ACo3 


LAEZZZZEZEEELEZE ZEZZ ZZ ZZZEN EZ Z 


ACde 
ACOB 
ACOA 
ACOC 
ACHD 
ACOF 
Acıı 
Aacı? 
Ac1S 
ACcıB 
ACIA 
Acıc 
ACIE 
AC2H 
Ac22 
AC24 
AC2& 
ACc28 
AC2A 
ACIC 
AC2F 
AcyHı 
Ac33 
AC3S 
AC3B 
ACIB 
ACID 
ACIF 
Acaı 
AC4I 
AC45 
ACa7 
ACAA 
ACAD 
ACAF 
AC5Iı 
ACIA 
ACS& 
ACSB 
ACSA 


20 
29 
Fo 
20 
4c 


AD 
Do 
AS 
DO 
20 
sc 


As 
Do 
20 
20 
ac 


A& 
Ad 
a9 
2C 
ag 
85 
86 
94 
20 
85 
84 
AS 
44 
85 
84 
Ab 
A4 
86 
84 
29 
Do 
24 
so 
20 
80 


87 
02 
05 
85 
FE 


90 
tE 
13 
ES 
06 
FB 


13 
06 
45 
3B 
60 


4 
42 
98 


00 
u 
43 
34 
8B 
49 
aA 
7, 
76 
4B 
4C 
4 
44 
7, 
78 
73 
20 
11 
oc 
24 
00 


FF 


AB 
AB 


as 


Bo 


El 
02 


AB 
AB 


JSR 
AND 
BED 
JSR 
JMP 


LDA 
BNE 
LDA 
BNE 
JSR 
JMP 


LDA 
BNE 
JSR 
JSR 
JMP 


LDXx 
LDrY 
LDA 


sFFB? 
ss02 

sABEA 
sABBS 
FABFB 


802009 
sACccD 
s1J 

sABD&s 
$A9N5 
SABFB 


13 

sACco3 
sAB45 
sABJB 
sA560 


ss 
342 
1898 


.BYTE $62C 


LDA 
sta 
STX 
STY 
JSR 
sta 
STY 
LDA 
LDY 
5Ta 
STY 
ıUDı 
LDY 
STX 
sTY 
JSR 
BNE 
BIT 
BVC 
JSR 
sTa 
LDX 
LDY 
BNE 
BI 
LDA 
BNE 
JSR 
JSR 
st 
sTY 
JSR 
BlT 
BPL 
BIT 
BVC 


"800 
si 
sa 
s36 
sBOBB 
:59 
s4A 
s7A 
s7B 
saB 
sac 
#43 
+44 
137: 
s78 
50079 
sacsı 
si 
sAcaı 
sE124 
80200 
NsEF 
001 
sac4D 
sACBB 
s1J 
sACAA 
sAB45 
sABF® 
9A 
#78 
30073 
soD 
sacB? 
si 
sAC65 


Status holen 


Tıme-out ? 
Ja, ELRCH, Tastatur nıeder aktivieren 
nachstes Statenent ausführen 


erstes Zeichen holen 

Ende ? 

3a, Eingabegerät 

nıcht Tastatur ? 

Offset des nachsten Statements suchen 
Progranezeıger auf nächstes Stateaent 


Eıngabegerät 
nıcht Tastatur ? 
"9° ausgeben 
" Leerze:chen ausgeben 
Eingabezeile holen 


BASIC-Befehl READ 


DATA-Ieıger nolen 
READ-Flag 


setzen 


INPUT-Zeiger auf Eingabe 
sucht Variable 


Varıablenadresse speichern 


Prograaszeıger in #4B/94L zwischenspeichern 


INPUT-Zeıger 
gleıch Prograaazeıger 


CHRGOT letztes Zeıchen holen 


Eıngabeflag 

kein 6ET ? 

GETIN 

Zeichen ın Puffer schreiben 


Eingabegerät 

nicht Tastatur ? 
Fragezeichen ausgeben 
zweites Fragezeichen ausgeben 
Prograaszeiger setzen 


CHRGET nächstes Zeichen holen 
Typ-Flag 


Eingabeflag 
keın GET ? 
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ACSC E8 INT 


ACSD 86 7A st 87A 

ACSF a9 00 LDA 8800 

ACcdl 85 07 STA 507 

ACd3 FO 0C BEO sAC7I 

AC6S 85 07 STa 807 

ACb7 c9 22 cmP #822 “"" Hochkoana 

ACo9 FO 07 BEQ KAC72 

AC6B A9 SA LDA ı85A ae 

AC6D 85 07 STAa 507 

AChF a9 2C LDA ®32C ar 

Ac71 18 cıLc 

AC72 85 08 STA #08 

ACc74 a5 7A LDA 7A 

AC7& A4 7B LDrY #73 

AC7B #7 00 ADC #s00 

ACTA 90 01 BCC SAC7D 

AcTc cB INY 

AaCc7’D 20 8D B4 JSR 35480 String ubernehaen 

ACBO 20 E2 B7? JSR 3B7E?2 Progrannazeıger hınter String setzen 
ACBS 20 DA A? JSR $A9DA Strıng an Variable zuweisen 
ACB& sc 91 AC JMP FAC9ı weıter machen 

AC89 20 F3J BC JSR $BCFS Z:##ernstring ın FAC holen 
ACaC AS 0E LDA $0E INTEGER/REAL-Flag 

ACBE 20 C2 A9 JSR $sA9C2 FAC an nuaerısche Variable zuneisen 
ACH 20 79 00 JSR 70079 CHRGDT letztes Zeichen holen 
Ac94 FO 07 BEO SAC9D Ende ? 

ACHb CP 2C CHF as2C Dee 

AKIB FO 03 BEQ sAC9D 

AC9A ac 3D AB JMF sAB&D zur Fehlerbehandlung 

ACHD AS 7A LDA $7A 

AC9F As 7B LDdY #78 Progranazeiger 

ACAI 85 43 STA 843 

ACA3 Ba 44 SIrYr 554 gleich DATA-Zeiger 

AcaS AS #B LDA 84B 

ACAT7 As AC LDY $4C Progrannzeiger 

AcAa? 85 7A STAa s7A wieder zurickholen 

ACAB 84 7B STY 17B 

ACAD 20 79 090 JSR 80079 CHREOT letztes Zeichen holen 
ACBO FO 2D BEO SACDF 

ACB2 20 FD AE JSR sSAEFD CKCOM prüft auf Koaaa 

ACBS °C 15 AC JMP sAC!S neiter 

ACBB 20 06 A9 JSR $AF0& nachstes Stateaent suchen 
ACBB c8 INY 

ACBC AA TAX leilenende ? 

ACBD D0 12 BNE $ACDI nein 

ACBF a2 00 LDI 0500 

ACCI c8 INnY 

Acc2 Bi 7A LDA (87A),Y 

ACCA FO &C BEO sAD32 Progransende ? "out of data’ X eo 
ACC6 ce INY 

Acc? 81 7A LDA t87A),Y 

ACC® 85 S3F STA s3F 

ACCB c8 InY 

ACCC Bl 7A LDA (97A),Y 

ACCE c8 INY 

ACC 85 40 STA #40 

ACDI 20 FB AB JSR $ABFB Progranszeiger auf nächstes Statement 
ACD4 20 79 00 JSR 30079 CHRGOT letztes Zeichen holen 
ACD? AA TAX 
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ACcDB 
ACDA 
ACDC 
ACDF 
ACEI 
ACEI 
ACES 
ACE7 
ACEA 
ACEC 
ACEE 
ACFO 
ACF2 
ACF4 
ACF& 
ACFB 
ACFB 


ACFC 
ADO4 
ADOC 
ADIA 
ADIC 


£E0 
DO 
4C 
AS 
A4 
Ab 
10 
4“ 
AO 
81 
FO 
AS 
DO 
a9 
AO 
4C 
60 


3F 
[Y) 
3F 
4F 
00 


z 
Ss 


bc 
Sı 
43 
44 
11 
03 
27 
00 
45 
08 
t3 
07 
FC 
ACc 
IE 


45 
3E 
52 
20 


Ac 


AB 


AB 


58 
4F 
45 
53 


CPX 
BNE 
JINF 
LDA 
LDY 
LDX 
BPL 
JINP 
LDY 
LDA 
BEQ 
LDA 
BNE 
LDA 
LDY 
JnP 
RTS 


54 52 
52 45 
44 4F 
54 41 


esB! 
sACBB 
sacsı 
sa; 
544 
su 
sACEA 
#827 
0500 
1843) ,Y 
sACFB 
s1J 
$ACFB 
nsrc 
asac 
sABIE 


41 20 49 
44 0D 00 
20 44 52 
52 54 0D 


SERTERTERTSUT SLR REFABTETTUINTE 


ADD 
AD20 
AD22 
AD24 
AD27 
AD29 
AD2B 
AD2E 
ADSO 
AD32 
AD3S 
ADS& 
AD37 
ADSB 
ADSA 
ADSB 
ADSD 
ADIF 
ADAO 
AD42 
AD4S 
AD4& 
AD4Y 
ADAB 
AD4D 
ADAF 
AD52 
ADS5 
ADd57 
ADSA 
ADSB 
ADSC 
ADSF 
ADsI 
AD64 


Do 
a0 
FO 
‚20 
85 
84 
20 
FO 
A2 
sc 
IA 
8A 
18 
69 
48 
69 
85 
68 
AO 
20 
BA 
BD 
85 
AS 
Aa 
20 
20 
a0 
20 
BA 
38 
FD 
Fo 
BD 
85 


04 
00 
03 
8B 
49 
an 
8A 
05 
0A 
37 


04 


06 
24 


0 
A2 


0? 
66 
4 
aa 
67 
DO 
ol 
5D 


09 
17 
or 
39 


BO 


As 


A4 


0 


BC 


01 


0 


BNE 
LDr 
BEO 
JSR 
STA 
sTY 
JSR 
BEO 
LDx 
Inp 
TxS 
TXA 
cLc 
ADC 
PHA 
ADC 
STa 
PLA 
LDY 
JSR 
TSK 
LDA 
STa 
LDA 
LDY 
JSR 
JSR 
LDY 
JSR 
TSX 
SEC 
sBC 
BED 
LDA 
sTa 


sAD24 
00 
sAD27 
sB08B 
349 
s4A 
sAIBA 
sADJ5 
8#0A 
LLERT/ 


"304 


#08 
s24 


so 
#BBA2 


80109,X 
$66 

It) 

IT, 
48867 
sBBDO 
“soil 
sBc5D 


#0109,X 
ELTPZ:) 
$OLOF,X 
s39 


"DATA‘ 

nein, nweitersuchen 
Daten lesen 
Input-Zeiger 
Eingabe-Flag 

keın DATA ? 
DATA-leıger setzen 


Zeiger aut "?extra ıgnored' 
String ausgeben 
"?extra ıgnored' 


"?redo froa start’ 


BASIC-Betenl NEXT 

folgt Variablenname ? 

sucht Varıable 

Variablenadresse 

sucht FOR-NEAT-Schleıte ia Stack 
getunden 


Nuaser fur 'next without far 
Fehleraeldung ausgeben 


Variable voa Stack in FAC holen 


Variablenadresse 


addiert STEP-Wert zu FAC 
FAC nach Variable bringen 


FAC ait Schleifenendwert vergleichen 
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AD&SE BD 10 01 LDA s0110,X Zeilennuaaer holen 


ADEN 85 5A 5TA #5A 

ADSB BD 12 01 LDA $0112,X 

ADsE 05 7A STA #7A 

AD7O BD 11 01 LDA s0111,X Prograsazeıger holen 

AD73 85 7B STA 67B 

AD75 4C AE A7 JMP $ATAE zur Interpreterschleife 

AD78 8A Tra 

AD797 69 11 ADC est 

AD7B LT TAI 

AD?C FA TıS 

ADTD 20 79 00 JSR 80079 CHREOT letztes Zeichen holen 
ADBO c9 2C EnP 0e#2C "," Konna 

ADB2 Do Fi BRE $AD7S neın, dann fertıg 

ADB4 20 73 00 JSR 30073 CHRGET nächstes Zeichen holen 
ADB? 20 24 AD JSR sAD2& nachste NEXT-Variable 


Abaeeeaadteakrabhene rear FRANUM Ausdruck holen und auf nunerisch prufen 


ADBA 20 9E AD JSR SADIE FRMEVL Tera holen 
GanaeEREaa Te prüft auf nuaerisch 
ADaD 18 cıLc 

ADBE 24 ‚BYTE 624 
ara ruft auf String 

ADSF 38 SEC 

ADIO 24 0D BIT $0D Typilag testen 

AD92 30 03 Bat 8AD97 

AD94 Bo 03 BCS #AD99 

ADIb 60 RTS 

AD97 Bo FD BCS #AD96 

AD99 A2 16 LDI 0816 Nuaner für 'type aısmatch‘ 
ADSB AL 37 4 JmP 8A437 Fehlerneldung ausgeben 


aaenebebaReeeeea ee FRMEVL auswerten eines beliebigen Ausdrucks 
ADISE As 7A LDX 67A 


ADAO bo 02 BNE FADA4 Prograaazeiger un eıns ernıedrigen 
ADA2 Ca 7B DEC 87B 

ADA4 Ch TA DEC 67A 

ADA& A200 LDX 0800 

ADAS 24 »BYTE 824 

ADAI 48 PHA 

ADAA 8A TaA 

ADAB 48 PHA 

ADAC A9 01 LDa 0801 2 Bytes 

ADAE 20 FB AS JSR SAJFB prüft auf genügend Platz ia Stack 
ADBI 20 83 AE JSR sAEBS Nächstes Eleaent holen 

ADBA4 A9 00 LDA 6800 

ADB& 85 4D STA #4D Maske für Vergleichsoperator 

ADBB 20 797.00 JSR 50079 CHRGOT letztes Zeichen holen 
ADBB 38 SEC 

ADBC E9 BL SBC #8Bl 

ADBE 9017 BCC $ADD7 

ADCO c9 03 CHP 0803 

ADC2 Bo 15 BCS sADO? 

ADCA c9 01 CHP A801 

ADC& 2A ROL A Maske für kleiner, gleich und größer 
ADCT 49 01 EOR #801 

ADC? 453 4D EOR $40 

ADCB c5 4D CHP aD 
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ADCcD 
ADCF 
ADDI 
ADD4 
ADD? 
ADD? 
ADDB 
ADDD 
ADDF 
ADEI 
ADES 
ADES 
ADEB 
ADEA 
ADEC 
ADED 
ADEF 
ADFO 
ADFI 
ADF& 
ADF6& 
ADF9 
ADFA 
ADFD 
ADFE 
AEOO 
AEO2 
AEOJ 
AEOS 
AEOT 
AE0I 
AEOA 
AEOB 
AEOD 
AEOF 
aell 
AEII 
AE1LS 
REIT 
AE1F 
AEIC 
AEIE 
AE2O 
AE23 
AE24 
AE27 
AE2B 
AE2B 
AE2D 
AEIO 
AESS 
AE3SS 
AEISB 
AESI 
AEIA 
AESC 
AEIE 
AEIF 
AEAL 
AEA?2 


90 
85 
20 
4C 
Ab 
Do 
B0 
69 
0 
65 
D0 
ac 
69 
85 
9A 
65 
A8 
68 
09 
80 
20 
48 
20 
68 
LE 
10 
AA 
Fo 
DO 
46 
8A 
2A 
Ab 
09 
C6 
C 
a0 
85 
DO 
D9 
80 
90 
87 
48 
B9 
48 
20 
AS 
°C 
ac 
AS 
BE 
AB 
68 
85 
E6 
68 
83 
98 
48 


61 
4D 
73 
BB 
4D 
2C 
7B 
07 
77 
0D 
03 
3D 
FF 
22 


22 


80 
67 
8D 


20 


4B 
17 


55 
Sr 
0D 


7A 
02 
7B 
7A 
ıB 
4D 
D7 
80 
48 
09 
82 


81 


33 
4D 
LE 
08 
66 
80 


27 
22 


23 


90 
AD 


B6 


AO 


AD 


AE 


ao 


AO 


AO 


AE 


AD 
AF 


AO 


BCC 
STa 
JSR 
InP 
LDX 
BNE 
BCS 
ADC 
BCC 
ADC 
BNE 
JMP 
ADt 
STA 
ASL 
ADC 
TAY 
PLA 
CnP 
BES 
JSR 
PHA 
JSR 
PLA 
LDY 
BPL 
Tax 
BEO 
BNE 
LSR 
TXA 
ROL 
LDX 
BNE 
DEC 
DEC 
LDY 
5Ta 
BNE 
cHP 
BCS 
BCC 
LDA 
PHA 
LDA 
PHA 
JSR 
LDA 
JmP 
JnP 
LDA 
LDX 
TAY 
PLA 
5Ta 
ING 
PLA 
sTa 
TYA 
PHA 


SAEbb 
«od 


A 
s7aA 
saE—tı 
#7B 
7A 
vsıB 
+4D 
sADFO 
#A0B0,Y 
sAEb6 
sADF? 
#A082,Y 


sA0B1,Y 


saE33 
sa 
saDa9 
sAFOB 
#66 
sA0B0,Y 


#22 
#22 


#23 


CHRGET nächstes Zeichen holen 
zurück 


nuaerisch ? 
Stringverkettung 
Kode - $AA 


nal 35 


aıt Hierarchietflag vergleichen 
prüft auf nuaerısch 


Operatoradresse und Operanden auf Stack 


Stringflag läschen 


Prograaszeiger ue eins zurücksetzen 
Offset des Hıerarchieflags 

Flag setzen 

eit Hierarchietlag vergleichen 
Operationsradresse auf Stack 
Operanden auf Stack 

zum Schleitenantang 

gibt "syntax error’ 


Vorzeichen 
Hierarchieflag 


Rucksprungadresse aerken 


Vorzeichen 


in 


AE4S 20 ıB BC JSR $BC1B FAC runden 


L12 7" AS 65 LDA #45 

AE48 48 PHA 

AE4F AS 54 LDA $84 

AE4B 48 PHA 

AEAC AS 63 LDA 865 

AE4E 48 PHA FAC auf Stack 
AEAF A5 82 LDA #62 

AESI 48 PHA 

AES2 AS bl LDA #61 

AES4 48 PHA 

AESS &C 22 00 JMP (80022) Sprung auf Operation 
AESB a0 FF LDdY #sFF 

AESA 68 PLA 

AESB FO 23 BEO sAEBO 

AESD C9 64 CMP 0964 

AESF FO 03 BEO #AESsA4 

AE6I 20 3D AD JSR sADED prüft auf nunerisch 
AEd4 B4 48 STY #4B 

AE6b& 11: PLA 

AEB7 aa LSR A 

AE6B 85 12 STA sı2 

AE&A 6B PLA 

AE6B 85 #9 STA 869 

AE&D 68 PLA 

AEGE 85 6A STA s6A 

AaE7O 68 PLA ARG von Stack holen 
AETI 85 68 5TA 863 

AETS 68 PLA 

AET4 85 4C STA s6C 

AETL 68 PLA 

AE77 85 6D STA $&D 

4E79 68 PLA 

AETA 85 dE STA $6E 

AETC 45 bb EOR #66 

AETE 85 öf STA #4F 

AEBO AS bi LDA $61 

AEB2 60 RTS 


aarnaanunreananeeennasann aaa Nächstes Element eines Ausdrucks holen 
AEBS dt 0A 03 JMP 18030A) JmP $AEB6 


AEBö A9 00 LDA 08500 

AEBB 85 0D STA s0D Typflag auf nunerisch 

AEBA 20 73 00 JSR 80073 CHRBET nächstes Zeichen holen 
AEBD B0 03 BCS SAER?2 litter ? 

AEOF ac FJ BC JMP #BCFI Variable nach FAC holen 

AE92 20 135 Bi JSR sB113 Buchstabe ? 

AE9IS 90 03 BCC SAEIA nein 

AE97 4C 28 AF JnP sAF28 Variable holen 

AESA CH FF CHP asFF BASIC-Kode #ür Pi ? 

AEIC Do of BNE $AEAD 

AESE a7 AB LDA 88A8 leiger auf Konstante Pı 

AEAO AO AE LDY e8sAE 

AEA2 20 A2 BB JSR #BBA2 Konstante in FAC holen 

AEAS 4C 73.00 JMP 80073 CHR6ET nächstes Zeichen holen 


LEIEZEUTELTSTTETSETTERZUETERE N 
AEAB 82 49 OF DA AI Konstante Pi 3.14159265 


BETTEN ERERZZESELESLE ZIELEN DE ZZ 2 
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AEAD Cc9 2E CHP as2E 
AEAF FO DE BEQ #AEBF 
AEBI c9 AB CHP 8$sAB 
AEBI Fo 58 BEQ $AFOD 
AEBS c9 Aa CHMP W$sAA 
AEB? FO DI BEQ sAEBA 
AEB? c9 22 cHP #322 
AEBB DO OF BNE $SAECC 
AEBD AS 7A LDA 37A 
AEBF As 7B LDY $7B 
AECI 69 00 ADC #500 
AEC3 9 01 BCC SAEC 
AECS cB INY 

AEC6 20 87 B4 JSR 68407 
AEC® #6 E2 B7 JMP #B7E2 
AECE c9 AB ECHP 05A8 
AECE Da 13 BNE $SAEEI 
AEDN ro 18 LDY as18 
AED2 Do 5B BNE $AFOF 


[KKEKZZZER ZEITEN SEIEN ZERERZ ZE ZT 


AEDA 20 BF Bi JSR #BIBF 
AED? AS 65 LDA 865 
AEDI 49 FF EOR #8FF 
AEDB AB TaY 

AEDC AS 64 LDA 864 
AEDE a9 FF EOR SFF 
AEEO sc 91 83 JnP #B391 
IKIKETETTIEERZEEESERZETT DEI 
AEES c9 a5 CHP #sAS 
AEES Do 03 BNE tAEEA 
AEET7 4C F4 B5 JMP sBJIFA 


VERBERUERSURTRESEEBETER RUSS 


AEEA c9 B4 CHP asBa 
AEEC 90.03 BCC #AEFI 
AEEE ac AT Ar JMP sArFA7 
LDILZETTERTETETZEETSESTITII TE 
AEFI 20 FA AE JSR SAEFA 
AEF4 20 9E AD JSR sAD9IE 
IKZLETSTTSTTRETEIEEEEELTESTT ET 
AEFT AI 29 LDA 0329 
AEF? 2C „BYTE 82C 
AEFA AI 28 LDA #328 
AEFC 2C .BYTE #2C 
AEFD AP 2C LDA #82C 
AEFF AO 00 LDY 400 
AFO1 D1 7A CHP (87) ,Y 
AFOS D0 03 BNE $AFOB 
AFOS ac 73 00 JnP 80073 
AFOB A2 0B LDX 0#0B 
AFOA ac 37 94 JnP 84437 
AFOD AO 15 LdY 4815 
AFOF 48 PLA 

AFıO 68 PLA 

Arlı ac FA AD JNP sADFA 


zum Vorzeichenwechsel 
.g: 


Prograaazeiger holen 


String übertragen 

Programnzeiger auf Stringende + | 
"NOT'-Kode 

Offset des Hierarchıe-Flags ın Tabelle 
BASIC-Befehl NOT 

FAC nach INTEGER wandlen 


alle Bits undrehen 


nıeder nach Fliefkoaaa wandlen 


"FN'-Kode 
FN ausfuhren 
"S6N'-Kode 


kleiner (keine Stringfunktian) 
holt String und ersten Paranater 


7 


holt Tera in Klanaern 
prüft auf Klaaner auf 
FRMEVL holt Term 


prüft auf Zeichen ım BASIC-Text 
r Klaaser zu 


Le Klanner aut 
jerE Kosaa 


ait laufendes Zeichen vergleichen 
keine übereınstiaaung ? 

CHRGET nächstes Zeichen halen 
Numser für 'syntaw error’ 
Fehleraeldung ausgeben 


Offset Hierachie-Kode für Vorzeichenwechsel 


zur Auswertung 
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LASZEEZERZEEZZELERZZEEK ZI EN ZZ 


Arie 38 SEC 

AF1S AS 64 LDA 864 
AFıT7 EF 00 SBC 8500 
AF1S AS 65 LDA 845 
AF1B EI AO SBC nEAO 
AFID 90 08 BCC #AF27 
1212 a9 A2 LDA a6A2 
AF2I E5 64 SBC #64 
AF23 AT E> LDA a6E3 
AF25 ES 65 SBC #65 
Ar?27 60 RTS 


ALITTSTTEITESTIETIE SEITE 
AF2d 20 BB BO JSR 6BOBB 


AF2B 85 64 STA 564 
AF2D 84 65 STY 665 
AF2F Ab 45 LDXI 845 
AFSI Aa 46 LDY 846 
AFSS AS 0D LDA sOoD 
AF3S FO 2% BEQ KAFS5D 
AF37 A900 LDA #800 
AFIF 85 70 STA #70 
AFIB 20 14 AF JSR sArıa 
AFSE 90 ıcC BCC SAFSC 
AF4O EoO 54 CPxX 0854 
AF&2 DO 18 BNE SAFSC 
AFa4 co c# CPY n5C9 
AF&& DO 14 BNE SAFSC 
AF4B 20 84 Ar JSR sSAF84 
AFAB 84 5E STY s5E 
AF&D 88 DEY 

AF4E Ba 71 sıY srı 
AFSO AD 06 LDY 3806 
AFS2 84 5D STY 85D 
AFSAa a0 24 LDyY a524 


AFS& 20 68 BE JSR sSBESB 
Ars? 4C er Ba JMP sBS6F 


AFSC 60 RTS 

AFSD 24 0E BIT sOE 
AFSF 10 0D BPL SAFE 
KEETETERERTETTERZERTTEITUTIE ER, 
AF&I AO 00 LDY 3800 
AF63 Bil 64 LDA (664) ,Y 
AF6S AA TAX 

AFbb c8 INY 

AF67 Bi 64 LDA (#64) ,Y 
AF69 AB TAY 

AFbA BA TXA 


AF&B 46 91 B3 JMP #631 


LEZEETETZZZSENZZ SETZE STEE SED 
AF6E 20 14 AF JSR sAFIA 


AFTI 0 2D BCC SAFAO 
AF7S EO 54 CPxX 0454 
AF7S DO 1B BNE sAF92 
AF7? co 49 CPY 0849 
AF7F Do 25 BNE #AFAO 


prüft auf Variable innerhalb des BASICs 
liegt Descriptor (864/865) zwischen 
8A0O00 und #EY2A ? 


wenn ja dann C[e| 


Variable holen 
Variable suchen 


zeıgt auf Variable bzm. Stringdescriptor 
Variablennane 


Tyotlag 
numerisch ? 


Descriptor in Interpreter ? 
neın 

T 

BrE 


Zeıt holen 


Länge 6 für TIs 


erzeugt String TI$ 


INTEGER/ REAL Flag 
REAL ? 


Integervariable holen 


Intgerzahl holen 


und nach Fließkosaa wandeln 
REAL-Variable holen 
Descriptor ie Interpreter ? 
nein 

Tr 


'[ 
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AFTB 20 088 AF  JSR SAFBA 
AFTE 98 IYA 

AFTF  A2 AO LDX"0sA0 
AFgIı AC AF BC JMP SBCAF 
LZENZZEZZETTZELZEENEETERT TTS T 
AF84 20 DE FF JSR SFFDE 
AaFa7r 06 54 STR 364 
ArB9 84 63 STY 563 
AFBB 85 #5 STA #65 
AFBD AO 00 LDY 0800 
AFOF 84 62 STY 362 
AFPL 60 RTS 

AF92  E0 53 CPx #853 
Aar94 00 0A BNE $AFAO 
AF9b CO 54 CPY 0854 
AFSO 09 06 BNE $AFAO 
AF9A 20 B7 FF JSR $FFB7 
AF9D  &C 3C BC JMP SBCIC 
IELZZZEZZZZEEZZEIZZER IT TER ZEIT 
AFAO AS 64 LDA #64 
AFR2 A445 LDY #65 
AFAA AC A2 BB JHP SBBA2 
LAZZEEZZZEZZEZE ZU ZZ ZT IE ZZ D EEE) 
AFAT 0A ASL A 
AFAd 48 PHA 

BFAS AA Tax 

AFaAA 20 73 00 JSR 80073 
AFAD EO BF CPX a38F 
AFAF 90 20 BCC sArDi 
ALAEZZEZZ ZELTE ZZERZUZEIZTZEI GET 
AFBl 20 FA AE JSR $AEFA 
AFBA_ 20 9E AD JSR SADIE 
AFBT 20 FD AE JSR SAEFD 
AFBA 20 BF AD JSR $ADBF 
AFBD 68 PLA 

AFBE AA Tax 

AFBF AS 65 LDA 863 
AFCI 48 PHA 

AFC2 AS 64 LDA #64 
AFCA 48 PHA 

AFCS BA TXA 

AFC6 48 PHA 

AFCT 20 9E B7  JSR 8B79E 
AFCA 68 PLA 

AFCB AB TAY 

AFCC BA TXA 

AFCD 48 PHA 

AFCE AC DE AF JMP SAFD& 
AAZZEZEZEZEUZERZERZEZELDEE ZT ZEN 
AFDI 20 FI AE  JSR HAEFI 
AFDA 68 PLA 

AFDS AB TAY 

AFD6 BF EA IF LDA 89FEA,Y 
AFO9 85 35 STA #55 


TIME in FAC holen 


Zeit holen 
TIME holen 


und in Fließkoneaakku 


5 
r- 

Status holen 

Byte ın Akku in Fliedkonsaforaat wandeln 
REAL-Variable holen 


Variablenadresse 
Variable in FAC holen 


Funktionsberechnung 
Funktionskode eal 2 


CHRGET nächstes Zeichen 
nuaerische Funktion ? 


Stringfunktion, String und ersten Paranater 
prüft auf Klanner auf 

FRMHEVL holen beliebigen Tera 

prüft auf Konaa 

prüft auf String 

Funktionstoken #für left$, rights, ald# 


Adresse des Stringdescriptors 


Token auf den Stack 
holt Byte-Nert (2. Paraneter der Funktion) 


Token zurückholen 


Bytanert auf Stack 
Routine ausführen 
numerische Funktion auswerten 


holt Tera in Klaaaern (Funktionsarguaent) 
BASIC-Kode für Funktion 


setzt Vektor für 
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AFDB B? EB 9F LDA $9FEB,Y 
AFDE 85 56 STA #56 
AFEO 20 54 00 JSR 80054 
AFEI 4C 0D AD JMP 6ADED 
LITTERTERZERTELETTETIEEEETERETT 
AFE& AO FF LDY B$FF 
AFEB 2C .BYTE $2C 
[EIELLERETSERTTIREEZURELTEE ET ENT 
AFEI A0 00 LDY 88300 
AFEB 84 OB STY 808 
AFED 20 BF Bi JSR $BLBF 
AFFO a5 64 LDA 354 
AFF2 45 0B EDR $0B 
AFFA 85 07 STA 607 
AFF& AS 65 LDA 8655 
AFFB 45 0B EOR 808 
AFFA 85 08 STA 808 
AFFC 20 FC BB JSR $SBBFC 
AFFF 20 BF Bl JSR sBIBF 
8002 a5 65 LDA 865 
8004 45 0B EOR s0B 
B00& 25 08 AND #08 
8008 45 0B EOR #08 
BOOA AB TAY 

8B00B a5 64 LDA 864 
8000 45 0B EOR £0B 
BOOF 25 07 AND 807 
Boll 45 0B EOR sOB 
6013 4C 91 B3 JMP 88391 
LALZESEZZITEZEETEZZZERTZIEI ENT 
BO1& 20 90 AD JSR sAD9O 
8019 Bo 13 BCS sBO2E 
801B AS 6E LDA $6E 
BO1D 09 7F ORA #857F 
BOIF 25 dA AND 66A 
B921 85 6A STA $6A 
B023 AI 69 LDA 9869 
B025 AO 00 LDY 8600 
B027 20 5B BC JSR sBC5B 
Bo2A AA TAX 

B02B 4C 61 BO JRP $B061 
LLLITEITETZZSETTEREITZERZERTET 
BO2E A9 00 LDA 8500 
BOS0 85 0D STA $0D 
8032 C&b 40 DEC $4D 
BOJA4 20 Ab Bb JSR #BbA6 
8037 85 61 STA #61 
8039 86 62 STX #62 
B03B 84 63 STY 863 
B03D AS sc LDA 86€ 
BOSF As 60 LDY $6D 
8041 20 AA Bb JSR #BAAA 
8044 86 &C STA s6C 
BO4& 64 &D STY 660 
DO48 AA TAX 

B0497 38 SEC 


Funktionsberechnung 


Funktion ausführen 
pruft auf nunerisch 


BASIC-Betehl OR 
Flag für OR 


BASIC-Befenl 
Flag fur AND 
Flag setzen 

FAC nach INTEGER wandlen 


AND 


aıt Flag verknüpfen und nach $7/$B 


ARG nach 
FAC nach 


FAC 
Integer 


logısche Verknupfung 


wıeder nach Flıeßlomma wandlen 
Vergleich 

pruft auf ıdentischen Varıablentyp 
String ? dann weıter 


ARE in Speicherformat 


Adresse von ARG 
Vergleich ARG nıt FAC 
Ergebnis ın FAC holen 
Stringvergleich 
Stringflag löschen 


FRESTR 
Stringlänge 


Stringadresse 


Zeiger auf zweiten String 
FRESTR 


Stringadresse des 2. Strings 
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BO4A ES #1 SBC #61 
B04C FO 08 BEQ 8B05% 
BO4E A9 01 LDA 8801 
8050 99 04 BCE 8B056 
8052 A6 bl LDX 861 
B054 AI FF LDA asrfFf 
BOS5 85 65 STA $66 
5058 RO FF LOY 0sFF 
BOSA £8 INX 

B0SB c8 InY 

BOSc CA DEX 

BOSD 00 07 BNE $B0656 
BO5F Ab 66 LDI 566 
BV6l 39 0F BHI 88072 
8083 18 cLc 

8064 0 .0C BCC 88072 
8066 Bl 6C LDA ($6C),Y 
BO68B Di 62 CHP (882) ,Y 
BOsA FO EF BEQ sB05B 
BO&C A2 FF LDX RSFF 
BOsE 80 02 BCS 88072 
8070 A2 01 LDx asOL 
8072 E8 INX 

8077 BA TraA 

8074 za ROL A 
8075 25 12 AND 812 
8077 FD 02 BEO #807B 
5079 AI FF LDA nSFF 
B07B 46 SC BC JmP $BCSC 


BOTE 20 FD AE JSR SAEFD 


IEZEZZEZZEEIZZZZER EZ SIE ZEZ ZZ 


BOSI AA TAX 

8082 20 99 BO JSR 88090 
6085 20 79 00 JSR 80079 
8088 Dn Fa BNE $BNT7E 
BOBA 60 RTS 
LLLELEEZERTERZERTETUEIEI ENTE 
BOB8B A2 00 LDX #500 
Bo8aD 20 79.00 JSR 80079 
BOIO 86 OC STX sOC 
8992 85 45 STA 845 


8094 20 79.00 JSR 80079 
5097 20 13 Bl JSR #Bil3 


BOFA BO 03 BCS #BO9F 
BOFC 4C 08 AF JMP $AFOB 
BOIF A2 00 LDx 8800 
BOAL 86 00 STX s0D 
BOAS 86 0E STX $0E 
BOAS 20 73 00 JSR 80073 
BOAB 90 05 BCC $BOAF 
BOAA 20 13 Bi JSR 6BLll)J 
BOAD 90 08 BCC $BOBA 
BOAF AA Tax 

BOBO 20 73 00 JSR 80073 
BOBJ 90 FB BCC #B0B0 
BOBS 20 13 Bi JSR £#B113 
BoB8 BO F& BCS #B0BO 


Langen vergleichen 
gleıch ? 


2. String bürzer 
Lange des I. Strings 


Vergleich der Strings 
zeıchenweise 


Ergebnis nach FAC holen 
CHKCON prüft auf Koasa 
BASIC-Betehl DIN 


Varıable dieensionieren 
CHRGOT letztes Zeichen holen 
nicht Ende, dann zur nächsten Variablen 


Varıable holen 

Flag für nicht dımensionieren 
CHRGOT letztes Zeichen holen 
DIM-Flag setzen 
Varıablennaae 

CHR6OT Letztes Zeichen holen 
prutt auf Buchstabe 

ja 

"syntax error" 


Stringflag löschen 
Integerflag löschen 

CHRGET nächstes Zeichen holen 
litter ? 

prüft auf Buchstabe 

nein 

zweiter Buchstabe des Naases 
CHRGET nächstes Zeichen holen 
litfer ? 

prüft auf Buchstabe 

ja, weitere Zeichen überlesen 
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BOBA c9 24 CmP 0524 Ss 


BOBC 00 06 BNE $BOC& nein 

BOBE AP FF LDA ®$FF 

B0C0 85 0D STA s0D Stringflag setzen 

B0ocC2 DO 10 BNE $B0D4 Sprung 

80C4 69 25 CHF 0825 "x 

BOC& DO 13 BNE $BODE nein 

BOC8 AS 10 LDAa 810 Integer erlaubt ? 

BOCA DO DO BNE sBOsC neın, "syntax error" 

BOCC A9 80 LDA Rs80 

BOCE 85 0E STA $0E Integertlag setzen 

BODO 05 45 ORA 545 Bıt 7 in Nanen setzen 

B0D2 85 45 STA 345 

8004 8A TIA 

B0D5 99 89 ORA #80 Imeıter Buchstabe des Namens 
BOD7 AA Tax 

BOD8 20 73.00 JSR 80973 CHRGET nächstes leichen holen 
BODB 86 46 ST $&6 zweiten Buchstaben speichern 
BODD 38 SEC 

BODE 05 10 ORA $10 

BOEO EP 28 SBC 4s28 u“ 

BOE2 DO 05 BNE $BOET nıcht Klanner auf ? 

BOE4 4C DI BI JmP #B1D1 dımensıonierte Variable holen 
BOE7 AO 00 LDY #800 

B0E9 64 10 str sıo 

BOEB AS 2D LDda s2D leıger auf Variablenanfang 
BOED As 2E LDX $2E 

BOEF 864 60 STX 660 

BOFI 85 5F STA $5F zua Suchen nerken 

BoFS  E4 30 CPr 530 

BOFS DO 04 BNE $BOFB 

B0F7 c5 2F cnP 82F Ende der Variablen schon erreicht 
BOF9 FO 22 BEO $#B11D ja, nicht gefunden, neu anlegen 
BOFB AS 45 LDA 645 ersten Buchstabe des Nanens 
BOFD DI 5F CHP (s5F),Y aıt Variablentabelle vergleichen 
BOFF D0 08 BNE 68109 nein, weıtersuchen 

B101 AS 46 LDA 846 zweiten Buchstaben 

81053 C6 INY 

8104 Di Sf CMP ($5F),Y vergleichen 

B106 FO 7D BEQ #B185 

BIOB 88 DEY 

8109 18 ja 

BIOA AS SF LDA s5F 

BIOC 89 07 ADC 0507 Zeiger us 7 erhöhen (2 + 3 Byte REAL Variable) 
BIOE 90 EI BCC $B0F1 

B110 EB InxX 

Bill Do DC BNE $£BOEF weiter suchen 
AESLLEZEZZZZEZZZZZZZZEZ DEI ZEN Z prüft auf Buchstabe 

B1l3 CI AM CHP 541 "A 

B115 90 05 BCC sBLIc 

B117 EF SB SBC ##3B Tel 

B119 38 SEC ja, dannCa=Ll 

BI11A E9 AS SBC #8A5 nein, dann C = 0 

BIIC 60 RTS 

ARalSueaSasEReRTraEakaıHsneaae Variable anlegen 

BılD 68 PLA 

BII1E 48 PHA Aufrufadresse prüfen 

BIIF c9 2A CHP »$2A Aufruf von FRMEVL ? 
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B121 00 05 BNE #B128 nein, dann neu anlegen 


6123 A9 13 LDA 8813 Zeiger auf Konstante Ö 

8125 AO BF LDY R#BF 

8127 60 RTS 

B128B AS 45 LDA #45 

BL2A na 46 LDY 846 Variablennane 

B12C c9 54 CHP #554 'T 

B12E DO 08 BNE $B13B 

B130 co c9 cPY #3C9 "18" 

8132 FO EF BEQ #B123 ja, Ti$ 

8134 co 49 CPY 9849 Tr 

8136 D0 03 BNE $B1J3B nein 

8138 4C 08 AF JMP sAFO8 "syntax error’ 

B13B 0953 CHP #353 "5 

B13D Do 04 BNE #B143 

BIIF co 54 CPY 4854 STIL 

Bi4l FO FS BEQ $B138 ST, dann "syntax error’ 
B143 AS 2F LDA $2F 

BL45 As 30 LDY 830 Zeiger auf Arraytabelle 
8147 85 5F STA s5F 

B149 84 60 STY 840 nerken 

B14B #5 31 LDA #31 

BL4D Aa 52 LDY #32 leiger auf Ende der Arraytabelle 
BIAF 85 5A STA $5A 

B151 84 SB STY s5B nerken 

8153 18 CLC . 
8153 69 07 ADC 9807 un 7 verschieben für Anlage einer 
BI56 90 01 SCC 66159 neuen Variablen 

B158 ce INY 

5159 85 58 STA 358 

Bt5B 84 57 STY 659 neues Blockende 

BISD 20 BB AS JSR $ASBB Block verschieben 

Bi6n AS 58 LDda #58 

Bl62 4 59 LDY #59 

B1&4 ce INY 

8169 85 2F Sta s2F Zeiger auf Arraytabelle neu setzen 
8167 B4 30 StY 830 

8169 AO 00 LDY #800 

Bi6B AS 45 LDA 845 erster Buchstabe des Naaens 
B16D 91 5F STA ($3F),Y 

BI6F ce INY 

8170 AS 46 LDA $4& und zneiter Buchstabe speichern 
B172 91 5F STA ($3F),Y 

8174 A? 00 LDA #809 

B1Tb ce INY 

B177 91 5F STA (sSF),Y 

B179 c8 INY 

B17A 91 5F STA ($s5F),Y 

BI7C c8 INY S nal null für Varlablenwert 
B17D 91 SF STA (85F),Y 

BI?F CB INY 

5180 91 SF 6TA (8SF),Y 

B182 c8 INY 

B18J 91 5F 8TA ($5F),Y 

BiBS AS SF LDA 85F 

6187 18 £eLc 

B188 69 02 ADC 4802 zuei für Nanen addieren 
BIiBA A4 60 LDY 860 Zeiger auf Variable 

BIBC 90 01 BCC 6BIBF 

BIBE c8 INY 
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BIAr 085 47 STAa #47 nach $47/$48 


B191 84 48 STY $48 

8193 60 RTS 

Selteadalasssasseertsanraeenıı berechnet leiger auf erstes Arrayelenent 
B194 AS OB LDA #0B Anzahl der Dımensıonen 

B196 0A as A nal 2 

B197 69 05 ADC #805 plus 5 

B199 65 5F ADC #5Ff 

B19B Ak 60 LDY 860 zu 35F/$60 adaıeren 

B19D 99 0 BCC sBıAQ 

BL9F CB INY 

BIAO 85 SB STA #58 Ergebnıs-Zeıger 

BIAZ 84 59 SiY 559 

BıA4 60 RTS 

ÄEEZEZZEZZZZZZZZEIEELZZZZEZZEE ZZ 

BIAS 70 80 Nn0 00 00 Konstante -32768 
SaabDeesabrahe rer Umwandlung FAC nach Integer 
BIAA 20 BF EI JSR £BIBF FAC nach Integer wandeln 

BıAD a5 64 LDA 5564 Lo-Byte 

BIAF AA 65 LDY 865 Hi-Byte 

BiBl 60 RTS 

sunaatsaaasaraerabarenuruaerua Ausdruck holen und nach Integer 
B1B2 20 73 00 JSR 80073 CHRGET nächstes Zeichen holen 
81B5 20 9E AD JSR SAD9E FRMEVL, Ausdruck auswerten 
BıB8 20 BD AD JSR sADaD prüft auf numerisch 

B1BB AS 66 LDA Sb£ Vorzeichen ? 

8ıBD 30 0D Bam sBıcc negatıv, dann 'illegal quantıty' 
BIıBF a5 &1 LDA 851 Exponent 

BICı c9 90 CMP 8390 Betrag großer 32768 ? 

BICI 90.69 BCC $BICE nein 

B1CS a9 A5 LDA 88A5 

B1C? ao Bi LDY esBi leıger auf Konstante -32768 
81C9 20 SB BC JSR sBC58 Vergleich FAC nıt Konstante 
BICC DO TA BNE sB248 ungleich, 'ıllegal quantıty' 
BICE ac 98 BC JAMP sBC9B wandelt Fliefkoana in Integer 
ALLEN ELZZEZEEEZEEZZEEZEZEH EDEN diamensiponierte Variable holen 
BD A5 0C LDA #0C din Flag 

B1D3 05 0E ORA 5OE Integer Flag 

B1D5 48 PHA 

BiD6 AS 0D LDA #00 String Flag 

B1D8 48 PHA 

B109 AO 00 LDY 8800 Anzahl der Indızes 

BIDB 98 TYA 

BIDC 48 PKA 

B1DD AS 46 LDA #46 2. Buchstabe des Variablennanens 
BIDF 48 PHA 

BIEO AS 45 LDA 845 erster Buchstabe des Variablennanens 
BIE2 48 PHA 

BIEI 20 B2 Bi JSR 8B1B2 Index holen und nach Integer 
BIE& 68 PLA 

BIE? 85 45 STA 845 

B1EI 68 PLA Variablennaae zurückholen 

BIEA 85 46 STA 446 

BIEC 6B PLA Anzahl der Indizes 

BIED AB TAY 
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BIEE 
BIEF 
BIF2 
Bir) 
BIF& 
BIF? 
BIF® 
BIFC 
BIFE 
B201 
8202 
8205 
8207 
B209 
B206 
B20E 
B2OF 
B211 
8212 
8214 
B216 
B218 
821A 
B21C 
B2LE 
B220 
8222 
5224 
B226 
B228 
B22A 
B22C 
B22D 
B22F 
B231 
8233 
8235 
B237 
8238 
B25A 
B23B 
B23D 
B2JE 
B2JF 
B241 
B243 


B245 
8247 
B248 
B24A 


824D 
B24F 
8251 
8233 
B256 
B238 
825A 
B25C 


91 


Si 


o 


p31 


99 


AE 


na 


T5X 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 
STa 
INY 
JSR 
CHP 
BEO 
STy 
JSR 
PLA 
STa 
PLA 
5Ta 
AND 
STA 
LDX 
LDA 
sTtx 
STA 
cap 
BNE 
cpx 
BEO 
LDY 
LDA 
InY 
cnP 
BNE 
LDA 
CnP 
BEO 
INY 
LDA 
ELC 
ADC 
TAX 
INY 
LDA 
ADC 
BCC 


LDx 


»0102,1 
SO1H1,X 


654 
80102,% 
#65 
s0101,K 


#0079 
ws2C 
$B1DB 
soB 
sAEF? 


+0D 


s0E 
Rs7F 
s0oC 
s2F 
s30 
ssöf 
850 
#32 
$B228 
ss 
sB261 
“09 
ts5F),Y 


645 
sB257 
sa 
(s3F),Y 
#B240 


(85F),Y 
s5F 
t#5F) ,Y 
#60 
sB21C 


“sı2 


«BYTE $2C 


LDx 
JNP 


LDX 
LDA 
BNE 
JSR 
LDA 
LDY 
CHP 
BNE 


us0E 
$A437 


#$13 
s0C 
#B24A 
sB1974 
#0B 
0.04 
(85F) ,Y 
#B245 


lags vos Stapel nolen 


Index low und high auf Stapel 
Anzahl der Indızes erhöhen 
CHRGOT letztes Zeıchen holen 
"," Koasa ? 

Ja, dann nächsten Index 


Anzahl der Indızes speichern 
prüft auf Klanser zu 


Flags zurückhalen 


Zeiger auf Arraytabelle 

Zeıger serken 

ait Tabellenende vergleichen 

ja, nicht getunden, dann anlegen 
Nanen aus Tabelle 

sit gesuchten Nasen vergleichen 


zweiter Buchstabe 
gefunden 


Feldlänge addieren 


und weiter suchen 
Numaer für 'bad subscript' 


Nusaer für "illegal quantity’ 
Fehlerseldung ausgeben 


Numaer für 'redia‘d array’ 

Din-Flag null ? 

neın, dann Fehleraeldung 

setzt Zeiger auf erstes Arrayelenent 
Zahl der gefundenen Diaensionen 


ait Disensionen des Arrays vergleichen 
ungleich, dann 'bad subscript' 
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B2SE 


VERTTRRERTTRTRESTEUTTERRERURTT 


B261 
B264 
B267 
8269 
B26B 
B26D 
B26F 
B271 
8273 
8274 
B275 
8277 
B279 
B27B 
B27C 
B27D 
B27F 
8281 
B282 
8283 
5284 
8286 
8288 
B2BA 
B28C 
B2BE 
B2EBF 
B290 
5292 
8293 
B294 
5296 
5297 
8299 
BZIA 
B29B 
B29D 
82A0 
B2A2 
82A4 
B2A& 
B2AB 
B2AA 
B2AC 
B2AE 
B2B0 
B2B1 
B2B2 
B2B4 
B2B6 
B2B7 
B2B3 
B2BC 
BZBE 
62C0 
B2C2 
B2C4 


4C EA B2 


20 
20 
AO 
84 
2 
a5 
E21 
10 
ca 
ce 
AS 
A 
10 
ca 
ca 
86 
AS 
ca 
c8 
CB 
E21 
Az 
A9 
24 
50 
68 
1B 
69 
AR 
68 
65 
c8 
E21 
c8 
BA 
E21 
20 
B& 
85 
LU 
Cb 
Do 
65 
Bo 
85 
AB 
BA 
65 
90 
c8 
FO 
20 
85 
84 
A9 
E6 
As 


” 
08 
00 
72 
05 
5 
SF 
0 


01 


00 


ElZ 


sr 
“Cc 
7ı 
72 
22 
0B 
De 
53 
5D 
59 


58 
03 


52 
08 
sı 
32 
00 
72 
ıı 


81 
a4 


BJ 


a4 


JnP 


JS5R 
JSR 
LDY 
sIY 
LDX 
LDA 
STA 
BPL 
DEX 
INY 
LDA 
sTa 
BPL 
DEX 
DEX 
STX 
LDA 
INY 
INY 
INY 
STA 
LDX 
LDA 
BIT 
BvC 
PLA 
cıe 
ADC 
TAx 
PLA 
ADC 
INY 
STA 
InY 
TIa 
STa 
JSR 
Stu 
STA 
iDY 
DEC 
BNE 
ADC 
BC5 
STA 
TAY 
TxA 
ADC 
BCC 
INY 
BEO 
JSR 
STa 
stY 
1L0A 
INC 
LDY 


$B2EA 


#B193 
sAs08B 
8500 
#72 
0805 
545 
(s5F),Y 
38274 


#46 
ts5F),Y 
sE27D 


sı 
#0B 


{#5F).Y 
#s0B 
8300 
soc 
3B296 


“01 


4500 


ts5F) ‚Y 


(85F) ,Y 
sB34C 
s1 

s72 

s22 

s0B 
+B286 
59 
88308 
459 


s58 
38289 


sBJ0B 
$A408 
ss 
s32 
1800 
72 
71 


sucht gewunschtes Arrayelesent 
Arrayvariable anlegen 


Länge des Arraykopfs 
pruft auf genugend Platz ım Speicher 


Deraultwert für Varıablenlange (REAL) 
erster Buchstabe des Namens 

ın Arraytabelle 

keın Integer ” 


zweıter Buchstabe 
ın Tabelle schreiben 
keın String oder Integer ? 


endgultıge Varıablenlange 2, 3 oder 5 
Anzahl der Dimensionen 


speichern 
11. Defaultwert fur Dieensionierung 


Aufru#t durch DIM-Befehl ? 
neın 


Dimension vor Stack holen 


eıns addieren 


und speichern 


Platz fur weitere Dıaensıonen berechnen 
Varıablenende-leıger aerken 


weitere Diaensıionen ? 
Ja 


Feldlänge plus Startadresse 


praft auf genügend Speicherplatz 


Zeiger auf Ende der Arraytabelle 
Array nıt Nullen #ullen 


182 


B2C& Fo 05 BEO 
B2C8 88 DEY 
B2C9 9158 sta 
B2C8 DO FB BNE 
B2CD Ch 59 DEC 
BZCF Ce 72 DEC 
B2DI DO F5 BNE 
6203 E6 59 INC 
82D5 38 SEC 
B2D& AS 31 LDA 
8208 ES SF SBC 
B2DA A0 02 LDdy 
B2DC 91 5F STA 
B2DE AS 32 LDA 
B2EO c8 INY 
B2EI ES 60 SBt 
BZES 91 5F STA 
B2ES AS 0oC LDA 
B2E7 D0 62 BNE 
LIKLIISIER TER EEEERTESTETERTI ENT 
B2E9 c8 INY 
B2EA Bl 5f LDA 
B2EC 85 08 STA 
B2EE AI 00 LDA 
B2FO 85 71 sta 
B2F2 65 72 Sta 
B2FA& cB INY 
B2FS 68 PLA 
B2Fb AA TAX 
B2F7 085 64 STa 
B2F9 68 PLA 
B2FA 85 65 sTa 
B2FC Di 5Ff cHP 
B2FE 90 0E BCC 
B300 DO 06 BNE 
B302 c8 INY 
8303 BA TA 
8304 Di SF CHP 
8306 90 07 BCC 
B308 4C 45 B2 JnP 
B3JOB 4 35 A4 JMP 
IKLEZERTERT SET TERTETEIREIEIEENE 
BIOE c8 INY 
BJOF a5 72 LDA 
B31l 05 7 ORA 
B313 18 eLc 
B314 FO 0A BEO 
BS16 20 4C B3 JSR 
B319 BA Txa 
BJIA 65 64 ADC 
BJLC AA TAX 
BS1D 98 TYA 
BSLE na 22 LDY 
8320 65 65 ADC 
B322 86 TI STx 
8324 C& 08 DEC 
B326 DO CA BNE 
8328 85 72 STA 


$B2CD 


(558) ,Y 
sB2C8 
s5g 

sn 
#B2c8 
s5g 


ss 

ssF 
“02 
(s5F) ,Y 
s32 


#60 
(s5F),Y 
soc 
#B34B 


(s5F),Y 
soB 
000 
sn 

72 


564 


s65 
(#5F),Y 
#B30E 
#B308 


(#5) ,Y 
sB30F 
#8245 
sA435 


‚72 
sm 


+B320 
#B34C 


#64 


#22 
#65 
221 
soB 
sB2F2 
72 


Arraylänge low 


Arraylänge hıgh 

Aufruf von DIM-Befehl ? 
Ja, RTS 

Arrayeleaent suchen 


lahl der Dıaensionen 
speichern 


Index voa Stapel holen 


aıt Wert ia Array vergleichen 
kleiner ? . 
großer, dann 'bad subscript 


bei Sleichneit low Byte vergleichen 
kleiner, dann weiter 

"bad subscript" 

"out of nenory' 


Berechnung der Adresse eines Arrayeleaents 


Multiplikation 


Anzahl der Diaensionen 
mit nächsten Index weitersachen 
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BS2A A205 Lox 
B32C As as LDA 
B32E 10 01 BPL 
83320 CA DEX 
B331 AS 46 LDA 
8333 10 02 BPL 
8335 Ca Dex 
B336 CA DEX 
B337 86 28 STK 
8339 A900 LOA 
B33B 20 58 B3  JSR 
BIISE BA Tra 
BS5F 65 58 ADC 
BSal 85 47 STA 
B363 98 TYa 
Bas 65 59 ADC 
B346 85 48 Sta 
B34B AB Tar 
B3a9 05 47 LDA 
BSab 60 RTS 
EEILTEKZZEITZTZER ZEN ZEN Z ZIERT ZT 
B3aC 84 22 sTY 
BS4E BI SF LDA 
B35S0 85 28 STa 
8352 88 DEY 
8353 Bi SF LDA 
B355 85 29 STa 
8357 A9 10 LDA 
B359 85 5D STa 
B3SB A200 LDx 
B35D AO 00 LDr 
B3SF BA TIa 
B360 0A ASL 
Bl6l AA Tax 
8362 98 TYA 
8363 2A ROL 
B36a AB TaY 
B365 BO A4 BCS 
B367 06 1 ASL 
B369 26 72 ROL 
B36B 90 08 Bcc 
B36D 18 cLc 
BI6E BA TXA 
B36F 65 28 ADc 
8371 AA TAX 
B372 98 Tva 
B373 65 29 ADC 
B375 AB Tay 
B376 BO 93 BcS 
B378 C6 5D DEC 
837A 00 E3 BNE 
B37C 60 RTS 
LLIEFETZETLZZEZELZELELZZZI ZEIG 
B37D AS OD LDA 
B37F FO 03 BER 
B3Bl 20 As B&  JSR 
B364 20 26 B5  JSR 
B387 38 SEC 


0805 
$45 
38331 


46 
#8B337 


«28 
800 
85355 


#58 
#47 


#59 
148 


#37 


422 
ts5F),Y 
$28 


1S85F) ,Y 
s29 
“510 
s5D 
0s00 
0800 


s0D 

sB384 
$B6As 
$B526 


De#tault fur Variablenlange 15, REAL) 
erster Buchstabe des Nanens 


zweiter Buchstabe des Nanens 


Lange der Varıablen 2, 3 oder 5 


Df#tset in Array berechnen 


Hil#sroutine fur Arrayberechnung 


"out of menory' 


"out of seaory' 


BASIC-Funktion FRE 
Typtlag 

kein String 

FRESTR 

Garbage Collection 
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8388 as 33 LDA 833 
838A ES 51 SBC #31 
BJ8C a8 Tar 

BSaD AS 34 LDA 934 
BIBF E5 32 SBC $32 
B591 A2 00 LDX #800 
B393 B& 0D STA 300 
8395 85 62 sTA 862 
B397 84 63 STY 863 
8399 a2 90 LDX 0699 
B39B °C 44 BC JINP 8sBC44 
LET TSETZTESZESZEISENTIEIE IT TR 
839E 38 SEC 

B39IF 20 FÜ FF JSR SFFFO 
B35A2 A? 00 LDA #800 
BJA& FO EB BEO sBJN1 
LASELEESEETERETTERIRIT TUE ST 
BIA& Ab 3A LDX $3A 
BJAB €8 INX 

B83A9 DO AO BNE &BS4B 
BJAB a2 15 LDX 2815 
BSAD 2C «BYTE #2C 
BIAE a2 1B LDX a$1B 
8380 ac 37 As JMP $A437 
[KIITERSEEEIETZUTENETEEETERTE) 
8383 20 Ei B3 JSR $BJEI 
B3Bö 20 Ab B3 JSR $DJA& 
B3B9 20 FA AE JSR $AEFA 
B3BC N 80 LDA 4800 
BSBE 85 10 STA sı0 
B3C0 20 8B BO JSR $BOBOB 
BSCS 20 8D AD JSR sAD8D 
BSC6 29 F7 AE JSR SsAEF7 
83C9 AI B2 LDA #8B2 
BSCB 20 FF AE JSR SAEFF 
BSCE 48 PHA 

BSCF AS 48 LDA #48 
83D1 48 PHA 

8302 AS a7 LDA 847 
83D4 48 PHA 

8305 AS 78 LDA $7B 
B3b7 48 PHA 

B3SDa AS TA LDA $7A 
BSDA 48 PHA 

BJDB 20 F8 A8 JSR $ABFB 
BSDE ac 4F B4 JMP $B44F 
LLEEZESZEIEZZERZETETIERTEIEN DT 
BJEL A? AS LDA #8A5 
B3EJ 20 FF AE JSR sAEFF 
BJIES 09 80 ORA 4480 
B3EB 85 10 STAa #10 
BSEA 20 92 BO JSR 38092 
BSED 85 4E STA s4E 
BSEF 84 ar STY sar 
BIFI 4C BD AD JMP sADEOD 


Stringanfang 


aınus Varibalenende 

Flag auf nungrisch setzen 
Ergebnis aerken 

und nach Fließkosaa wandlen 
BASIC-Funktion POS 

C=1 Cursorpostion holen 
Cursorposıtion holen 
weiter wie oben 

Test auf Dırekt-Modus 


nein, dann RTS 
Nusser für "illegal direct 


Numaer fur 'undet’d function’ 


Fehleraeidung ausgeben 


BASIC-Betehl DEF FN 
prüft FN-Syntax 

testet auf Direkt-Modus 
prüft auf "Klanser auf‘ 


sperrt INTEGER-Varıable 
sucht Variable 

prüft auf nuserisch 
pruft auf 'Klamaer zu’ 
=" BASIC-Kode 

prüft auf '=' 


FN-Variablen-Adresse auf Stack 


Progrannzeiger auf Stack 


Prograaazeiger auf nächstes Statement 


FN-Variable vos Stack holen 
prüft FN-Syntax 

FN-Kode 

prüft auf FN-Kode 


sperrt INTESER-Variable 
sucht Variable 


FN-Variablenzeiger setzen 
prüft auf nunerisch 
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“.a.a..220 


BIF4 
BJIF7 
83F? 
BJIFA 
BSFC 
BIFD 
B400 
8403 
B404 
8406 
8407 
8409 
b40B 
B40D 
BAOF 
8410 
Ball 
B413 
B415 
8417 
B418 
BAIA 
B41B 
BAIC 
BALE 
8420 
5423 
B425 
B426 
8428 
B429 
B42B 
B42D 
BA2E 
B430 
8432 
B4J4 
B435 
8437 
8438 
B43B 
BASC 
BAIE 
B43F 
LEER 
B444 
B446 


B449 
B44A 
BAAC 
BA4D 
BA4F 
8451 
8452 
B434 
B455 
B436 
B458 


20 
AS 
48 
AS 
48 
20 
20 
68 
85 
&B 
85 
ao 
B1 
85 
AA 
cB 
Bl 
Fo 
85 
ce 
Bi 
48 
88 
10 
A4 
20 
AS 
48 
As 


AD 


00 


AF 


JSR 
LDA 
PHA 
LDA 
PHA 
JSR 
JSR 
PLA 
STA 
PLA 
STA 
LDY 
LDA 
STA 
TAX 
INY 
LDA 
BEO 
STA 
INY 
LDA 
PHA 
DEY 
BPL 
LDY 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
INY 
LDA 
STa 
LDA 
PHA 
LDA 
PHA 
J5R 
PLA 
sta 
PLA 
STA 
JSR 
BEO 
Inp 


PLA 
STA 
PLA 
sTa 
LDy 
PLA 
STA 
PLA 
INY 
STA 
PLA 


AEEEZZZEEZZZZZGZ 


sB3SEl 
sar 


s4E 


sAEFI 
sADaD 


saE 
sar 
4802 


($4E) ,Y 
su 


(s4E) ,Y 
sBJAE 
48 
44N),Y 
45418 
s48 
#BBD4 
37B 

sa 


(848) ,Y 
sa 


(84E) ,Y 
s7B 
s48 
s47 
SADBA 
[713 
sar 
80079 
38449 
SAFOB 
#7 


sT’B 
4800 


ts) ,Y 


(448) ,Y 


BASIC-Funktion FN 
pruft FN-Syntan 


FN-Variablenzeiger auf Stack 


holt Tera ın Klaasern 
prüft auf nuaerisch 


FN-Varıbalenzeiger zuruckholen 


gibt "undet 'd function’ 


FAC ın FN-Variable übertragen 


Progranazeiger auf FN-Ausdruck 


FRMNUM numerischen Ausdruck holen 


CHR6OT letztes Zeichen holen 
keine weitere Zeichen ? 
gibt "syntax error 


Prograaazeıger 
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B459 CB INY 

Basa 91 4E 5TA ts4E),Y 
B4SC 68 PLA 

BaSD CB INY 

BASE 91 4E STA (84E),Y 
B460 #8 PLA 

B46l CB INY 

B462 91 4E STA (84E) ,Y 
Ba64 60 RTS 
IEZEZEZZZZEZEIZITTEZTETZ IN ZZ ET 
B465 20 BD AD JSR sADED 
Base AO 00 LDY 0500 
BA6A 20 OF BD JSR $BDDF 
B460 68 PLA 

BA6E 68 PLA 

Ba6F AS FF LDA #FF 
BaTı AO 00 LDY 0800 
B473 FO ı2 BEO sB4B7 
LEZZUEZZENZEZELZEN ER ZEZTE ZEIGE 
B475 Ab 64 LDX 964 
BA77 na 65 LOY 865 
B479 86 50 STX #50 
BaTB 84 5ı SsTY 31 
BA7D 20 FA BA JSR SBAFA 
BABO 86 62 STA #82 
B482 84 63 STY 863 
B484  B5 81 STA #61 
BAB& 60 RTS 
IKZZEEZEEZERZTEERZELEEREZEN EN ZZ 
B487 A222 LoX 6922 
B489 86 07 STX 807 
BA8B B6 08 STX 108 
BAdD 85 6F STA s6F 
Baar 84 70 sTY #70 
8491 85 62 STA 862 
B493 84 63 STY 863 
Ba95 AO FF LDY asFF 
B497 CB INY 

B498 BI 6F LDA (86) ,Y 
BA9A FO OL BEQ sBAAB 
BAIC  C5 07: CHP 807 
BA9IE FO 04 BEQ $BAA4 
BAAO CS 08 CHP s0B 
BaA2 DO FI BNE $B497 
Baa4 C9 22 CHP 0922 
BaAb FO 01 BEO 9B4A9 
BaAd 18 CLC 

BAAR 84 61 STY bl 
BAAB 98 TYA 

BAAC 65 6F ADC #6F 
BAAE BS 71 STa #71 
BABO  A& 70 LDX 870 
BAB2 WU 01 BCC $#B4BS 
BaBA EB INK 

BABS 84 72 sTx #72 
BAB7T AS 70 LDA #70 
BABS FO 04 BEQ #BABF 


und FN-Variable vom Stack holen 


BASIC-Funktion STA® 
prüft auf nuserisch 


FAC nach ASCII unwandlen 


Startadresse des Strings = #FF 
Stringzeiger berechnen 

Akku enthält Stringlänge 

Zeiger aut Stringdescriptor 

schattt Platz für neuen String, Lange in A 
Adresse low 


Adresse high 
Länge 


String holen, Zeiger in A/Y 


Startadresse des Strings 


Zeiger erhöhen 
nächstes Zeichen des Strings 
Endekennzeichen ? 


Länge des Strings 


Endadresse low * 1 


Endadresse high + I 
Startadresse high 
aull ? 
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BaBB C9 02 CHP #802 
BaBD DO 08 BNE sBACA 
BABF 98 TYa 

BACO 20 75 BA JSR 8B475 
BACI As &f LDx $6F 
BacS As 70 LDY 870 
BAC7T 20 BB B& JSR $B6BB 
IKZKELEE KEIN ZZIZZZEEZEE ET ZT 
BACA Ab 1% LDX 816 
BACC  EO 22 CPx 0822 
BACE DO 085 BNE $B4DS 
BADO A219 LDx 9819 
B4D2 AL 37 AA IMP 5A437 
BADS AS 61 LDA $61 
BAD? 95 00 STA 800,X 
B409 AS 82 LDA $62 
BaDB 95 01 STA s01,X 
BaDD AS 63 LDA #63 
BaDF 95 02 STA $02,X 
BaEI AO 00 LöY 1500 
BAES  Bb 64 STU $64 
B4ES 84 65 STY 465 
BAET 84 70 STY $70 
BAER 88 DEY 

BAER 84 0D STY soD 
BAEC 86 17 stı sı7 
B4EE EB Inx 

B4EF EB INX 

BAFO  E8 InX 

Bari B& 16 STE 816 
BaFS 60 RTS 
AÄKZEZEEZERLZZZZZELEETE LTE RZ ZZ ZT 
BaFfk 46 OF LSR sor 
BaF& 48 PRA 

BAFT 49 FF EOR SsFF 
Bar9 38 SEC 

BaFA 85 33 ADC 833 
BAFC Aa 34 LDr 634 
BAFE BO 01 BES #B501 
B500 88 DEY 

BS0ı 4 32 CPY 832 
BS03 90 11 BCC #BS16 
BS0S DO 04 BNE $B50B 
B50?  c5 31 cnP 831 
BS09 90 0B BCC #B316 
BSOB 85 33 STA 833 
B50D 84 34 SstY 534 
BSoF 85 38 STAa #35 
BSIl 684 36 Str 336 
BS13 AA Tax 

BS14 68 PLA 

BSIS 60 RTS 

BSi6 A210 LDx 0810 
BSI8 AS or LDA OF 
BSIA 30 B6 BHI #B4D2 
BSIC 20 26 BS JSR 48526 
BSIF AI 80 LDA 1880 


zwei ? 

nein 

Länge in Akku 
Stringzeiger berechnen 


Startadresse holen 
String in Stringbereich kopieren 


Stringzeiger in Descriptorstack bringen 
Stringdescriptor-leiger 

Stringstack voll ? 

neın 

Numaer für "toraula too conplex’ 
Fehlermeldung ausgeben ’ 

Strirglänge 

und Adresse ın 


Stringstack bringen 

leıger Jetzt auf Descriptor 

Stringtlag setzen #FF 

Index des letzten Stringdescrıptors 

us drei erhöhen 

als neuen Index serken 

Platz {ur String reservieren, Länge in A 


Flag tür Garbage Collect rucksetzen 
Stringlänge 


zumenıg Platz, dann Garbage Collect durchtuhren 


Stringlänge zuruckholen 


Nuaser tür ’out of seaory' 

Flag für Garbage Collect 

bereits durchgeführt, dann "out of aeaory' 
6arbage Collect 

Flag setzen 
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B321 85 oF STA $KOF 


B523 68 PLA 

8524 bo 00 BNE $BAF& 
LEEESZRTESTZRITEEEIZITTITET TEN 
BS26 Ab 37 LDx 837 
8528 A5 38 LDA #38 
B52A 86 33 STX 833 
BS2C 85 34 STa 834 
BS2E AO 00 LDY #300 
B5J0 64 af STY S4F 
8532 83 4E STY $4E 
8534 AS 31 LDa $51 
B3J6 Ab 32 LDx #32 
8538 85 SF STA #5F 
B5JIA 66 60 STX #60 
B53C a9 193 LDA n819 
BSIE A2 00 LDI 8600 
B540 85 22 STA #22 
8542 86 23 STX #273 
B544 c5 16 CHP s16 
8546 FO 05 BEQ #B54D 
8546 20 C7 B5 JSR $B5C7 
8548 FO F7 BEG 88544 
854D 49 07 LDA 8807 
BS4AF 85 53 STA 853 
8551 as 20 LDA $%2D 
8537 Ab 2E LDı #2E 
BS55 085 22 STA #22 
B557 86 23 STX 923 
8559 E4 30 CPx 830 
B5S3B Do 04 BNE $8561 
B55D c5 2F CHP s2F 
BS5F FO 05 BEQ #B355 
8561 20 BD B5 JSR 8B3BD 
8564 FO FS BEO 88559 
8566 85 58 STA 958 
B568 84 59 STı 859 
B56A AI 03 LDA 0803 
BSsC 85 53 STA #53 
BS6E A535 58 LDA #38 
8570 Ab 59 LDx 859 
8572 Es 32 CcPxX 832 
8574 00 97 BNE #B57D 
B576 c5 J1 cnP #1 
B578 Do 03 BNE #857D 
857A 4C 06 B& JNP 8B606 
857D 83 22 STAa #22 
BS7F 06 23 STe #23 
8581 ao 00 LDY 0800 
8583 Bil 22 LDA (822) ,Y 
8585 aA TAX 

8586 c8 INY 

8587 Bl 22 LDA (822) ,Y 
8589 08 PRP 

BSBA c8 INY 

8588 Bi 22 LDA (822),Y 
B58D 65 58 ADC 658 
B59F 85 58 STA #58 
B591 ca INY 


Stringlänge 


6arbage Collection 
ungültige Strings beseitigen 
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B592 Bi 22 LDA 18223 ,Y 
BS94 65 59 ADC #59 
BS96 85 59 STA 159 
BS9e 28 PLP 

2599 10 03 BPL $BS6E 
BSIB BA Tra 

BSSC 30 d0 BMI $BS6E 
BSIE CB INY 

BS9F Bi 22 LDA (822) ,Y 
BSAI AO 00 LDY 8600 
BSAS OA ASL A 

BSAd 69 05 ADC 0805 
BSA& 65 22 ADC #22 
Bsaa 85 22 Sta 822 
BSAA 90 02 BCC sBSAE 
BSac  E& 23 INC #23 
BSAE Ab 23 LDx #23 
BSBO EA 59 CPx 853 
BSB2 DO 04 BNE $BSR8 
BSB4 CS SB CHP #58 
BSB6 FO BA BEQ #B572 
BSBE 20 C7 BS  JSR #B5C7 
BSBB FO FI BEQ #BSBO 
IKZEIKZZEKKZZL ZEIT ZZ ZE EN Z 3 
BSBD_ Bi 22 LDA (622),Y 
BSBF 30 35 BMI SBSF& 
BSCI CB INY 

Bsc2 BI 22 LDA (822) ,Y 
BSC4 10 30 BPL sBSF6 
BSC6 CB INY 

BSC7T BI 22 LDA (522),Y 
BSC9 FO 28 BEQ 885F& 
BSCB CB INY 

BScCC Bi 22 LDA (822) ,Y 
BSCE AA Tax 

BSCF CB INY 

BSDo Bi 22 LDA (822) ,Y 
BSD2 CS 34 CHP 634 
BSDa 90 06 BCC sBSOC 
BSD& DO IE BNE #BSF& 
BSDB EA 33 CPx 333 
BSDA BO IA BCS SBSF& 
BSDC CS 60 CHP 560 
BSDE 90 18 BCC sBSF& 
BSEO DO 04 BNE $BSE& 
BSE2 EA Sf CPX 85F 
BSEA 90 10 BCC #BSF6 
BSE& 86 5F STX 89F 
BSES 85 60 STA #60 
BSEA AS 22 LDA #22 
BSEC Ab 23 LDxX 8523 
BSEE 85 4E STA $4E 
BSFO  B6 4F STX s4F 
BSF2 AS 53 LDA #53 
BSFA 85 55 STAa #35 
BSRö AS 53 LDAa 853 
BSFB 18 cLc 

BSF9 65 22 ADC 622 
BSFB 85 22 STA #22 


pruft auf Beseitungssöglichkeit 
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BSFD 90 02 BCC #B601 


BSFF Eb 23 INC #23 

B601 Ab 23 LDX 823 

8603 AO 00 LDY 8800 

8605 60 RIS 

LLITFFETERTELTETELTERTET TERN Strings zusamaenfügen 
8606 AS AF LDA $4F 

8608 05 4E ORA #4E 

B60A FO FS BEQ $B&01i 

B60C AS 55 LDA #55 

B&0E 29 04 AND #804 

8610 an LSR A 

Boll AB TAY 

8612 85 55 STA #55 

8613 Bi 4E LDA ($4E),Y 

B61l6 65 5F ADC 85F #5F/860 = Zeiger auf alten Blockanfang 
5618 85 3a STA #5A 

B61A a5 60 LDA 660 a 
Böll 69 00 ADC 9800 

BEE 83 5B STAa 8358 #5A/858 = Zeiger auf altes Biockende 
8620 AS 33 LDA #33 

B622 Ab 34 LDX 834 

8624 83 58 STA 858 458/857 = Zeiger auf neues Blockende 
8626 96 59 sTı 859 

8628 20 BF AS JSR sAJBF Strings verschieben 
8428 A4 55 LDY #35 

B62D ce INY 

Bö2E AS 58 LDA 858 

BsJ0 91 4E STA {84E),Y 

8632 AA TAX 

B&33 E& 39 Inc #39 

BsJ33 A5 39 LDA 339 

B637 cB INY 

B&JB 91 4£ STA (#4E) ,Y 


BEJA 4C 2A B3 JMP 6852A 


Anaseatesneasu nern Btringverknüptung '*+' 


B&3ID a5 65 LDA 665 

BA3IF 48 PHA Descriptor des ersten String serken 
Bs40 AS 64 LDA 854 

B642 48 PHA 

8643 20 83 AE JSR SAEBJ ıweiten 6tring holen 

Bö46 20 8F AD JSR SADBF prütt auf Stringvariable 

B649 68 PLA 

Bö4A 83 sF STA s6F 

B6AC 68 PLA Descriptor zurückholen 

B64D 83 70 STA 870 

Ba4F AO 00 LDY 8800 

BöS1l BI öF LDA (86F),Y Länge des ersten Strings 

8653 18 cLc 

8654 7164 ADC (864),Y plus Länge des zweiten Strings 
B656 90 05 BCC #B65D kleiner als 235 

B65B a2 17 LDX 0817 Numser für ‘string too long‘ 

B&SA 4C 37 a4 JMP #A437 Fehleraeldung ausgeben 

B&3D 20 75 B4 JSR 8B475 Platz #ür verknüpften String reservieren 
B660 20 7A Bb JSR #887A ersten String dorthin übertragen 
B&63 AS 30 LDA #50 

B6d3 A451 LDyY 831 Leiger auf zweiten Stringdescriptor 


1m 


8657 20 AA Bb JSR #B6AA FRESTR 


Bös6A 20 8C B& JSR #B&sB8C zweiten String an ersten anhängen 
B6&D A5 6F LDA #6F 

Bö6sF A4 70 LDY 870 

B671 20 AA B& JSR #BöAAA FRESTR 

8674 20 CA B4 JSR #BACA Descriptor in Stringstack 
B877 4C BB AD JMP $ADB8 zurück aur Fornelauswertung 
ALAEKZELEESZEZZZEL ZZ aass1a String ın reservierten Bereich übertragen 
B&7A AO 00 LDY 88300 

BA7C Bl öF LDA (#5F),Y Stringlange nerken 

BöTE 48 PHA 

Be7F c8 InY 

B680 BI 6F LDA I$6F),Y Stringadresse low 

B602 AA TAX 

BbB3 ji] INY 

B6B4 Bl 6f LDA (88F),Y Stringadresse hıyghı 

86486 AB Tar 

B&87 68 PLA Stringlänge 

8688 BB 22 STı #22 

B6BA 84 2 STY 823 leıger auf String 

B&BC AB TAY 

B68D FO 0A BEQ #B69% Lange null, dann #ertig 
BBBF 48 PHA 

B690 88 DEY 

B691 81 22 LDA (822) ,Y String übertragen 

8693 935 STA (535),Y ın Stringbereich übertragen 
B695 98 TYa 

B6Rb DO FB BNE 38690 

B698 68 PLA 

B69%7 18 cLc 

Be9A 65 35 ADC 835 

B&IC 85 35 STA 835 Zeıger plus Stringlänge 
B6sE 90 02 BCC 6B6A2 

BöAO E6 36 INC 836 

B6A2 60 RTS 

AAZELEZZLELZELZELEEZEEZ EZ LEE Stringverwaltung FRESTR 
BbAS 20 BF AD J5SR SADBF prüft auf Stringvariable 
BbA& AS 64 LDA $64 

B&AB A4 65 LDY 665 Zeıger auf Stringdescriptor 
BöAR 85 22 STA #22 

B6AC 84 23 STtY #23 

B&AAE 20 DB B6 JSR 8B&0B Descriptor von Stringstack entfernen 
BeBi 08 PHP 

B6B2 ao 009 LDY 8809 

B6B4 Bi 22 LDA 1322) ,Y 

B6B& 48 PHA 

B6B7 c8 INnY 

B6BB bi 22 LDAa (822) ,Y 

B&BA AA TAX 

B6BB CB INY 

B&BC Bl 22 LDA (822) ,Y 

B6BE AB TAY 

B&BF 68 PLA 

86C0 28 PLP 

B6C1 Do 13 BNE &B6D& String war nicht in Stringstack 
Bec3 Ca 34 CPY #34 

B&aC5 Do 0oF BNE $B6D& 

B6C7 Es 33 CPX 833 
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86C9 D0 08 BNE $B6&D& 
B&CB 48 PHA 

B6LC 18 cLc 

B&CD 65 33 ADC 853 
BeCF 85 33 STA #33 
BöDL 90 02 BEC 88605 
B&DJ E6& 34 INC #34 
B&D5 68 PLA 

B6D& 86 22 STK #22 
B6D8 84 23 STr #25 
B6DA 60 RTS 
IKSITERZEZTIETTZERSET PETERS 
86DB ca 18 CPY s18 
86DD Do 0C BNE $B6EB 
BbDF c5 ı7 CHMP #17 
BöEI D0 08 BNE #B6EB 
BöESJ 85 16 STA #1& 
B6E5 E9 05 SBC #805 
B&E? 85 17 sTa $ı7 
B&ES AO 00 LDY 8300 
B6EB 60 RTS 
LELEZETIEETZSEITETTEREEIIET TE) 
BöEC 20 Al 87 JSR #B7AI 
B6EF 8A TXA 

BaAFo 48 PHA 

Bart 99 01 LDA 8801 
Bars 20 7D BA JSR #B47D 
Bör6 68 PLA 

BAF7 AN 00 LDY 2800 
B6F9 9162 STA (862) ,Y 
BöFB 68 PLA 

Barc 68 PLA 

BöFD 4C CA B4 JMP #B4CA 
LALSZEZESZETTIET IKT ITTEERETEI TG 
8700 20 61 B7 JSR 68761 
B703 DI 50 CHP (850),Y 
8703 8 TYA 

8706 99 04 BCC #B70C 
B708 Bi 50 LDA (850) ,Y 
B870A AA TAX 

B70B 98 TYA 

B70C 48 PHA 

870D 8A TXA 

B79E 4B PHA 

B7OF 20 ’D B4 JSR $B47D 
B712 AS 50 LDA 850 
8714 Aa Si LDY $51 
B716& 20 AA B& JSR $BAAA 
8719 68 PLA 

B71A AB TAY 

B71B 68 PLA 

BIC 18 cLc 

B71D #53 22 ADC #22 
B7IF 85 22 STA #22 
B721 90 02 BCC 68725 
B723 £6 23 INC 823 
8725 98 TYA 


833/834 zeigt jetzt auf Stringanfang 


Stringzeiger aus Descriptorstack entfernen 
ist Stringdescriptor in Stringstach ? 


Ja, Eıntrag entfernen 


BASIC-Funktion CHRS 

holt Byte-Wert (0 bıs 255) 
Kode in Akku 

Lange des Strings gleich I 
Platz für String reservieren 
ASCII-Kode zurückholen 


als Stringzeichen speichern 


Descriptor ın Stringstack bringen 
BASIC-Funktion LEFTS 

Stringparameter und Lange vom Stack holen 
Länge sit LEFT$-Paraneter vergleichen 


LEFT6S-Parameter kleiner als Stringlänge ? 
Stringlänge 


Platz für neuen String reservieren 


Zeiger auf Descriptor 
FRESTR 


Länge des neuen Strings 


plus Adresse des alten Strings 
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B72& 20 8C B6 JSR sBaBC 
8727 ac CA Ba JAP #BACA 
LLITSETTIZEITERRETESTITERRTET TEN 
872C 20 61 87 JSR 6B761 
B7ZF 18 CLC 

8730 Fi 50 SBE 1850) ,Y 
8732 a9 FF EOR ®SFF 
5734 ac 06 B7 JMP £B706 
LIUTSETIISSITEITITTIISTEIEERTTT 
8737 A9 FF LDA "sFr 
B739 85 65 STA 865 
B73B 20 79 00 JSR 60079 
B73E 9 29 tnP #829 
8740 FO 06 BEG 88748 
8742 20 FD AE JSR sAEFD 
8745 20 9E B7 JSR SB79IE 
B748 20 61 B7 JSR #B7&61 
B74B FO 48 BEQ 68798 
874D CA DEI 

874€ BA Tıa 

B74F 48 PHA 

B750 18 cıc 

8751 A2 00 LDX #500 
8753 Fi S0 SBL 1850) ,Y 
8755 BO B& BCS 88700 
8737 49 FF EOR #sFF 
8759 c5 65 CHP #65 
B75B 90 Bi BCC #B70E 
875D AS 65 LDA 665 
B73F BO AD BCS $870E 
LLLIIERTEITITTIEIETTEITEITEE EN 
B7&1 20 F7 AE JSR #AEFT? 
8764 68 PLA 

B765 AB TAY 

B7b6 68 PLA 

8767 85 55 STA 855 
8769 68 PLA 

B76A 68 PLA 

B76B 68 PLA 

B76C AA TAX 

876D 68 PLA 

B76E 85 50 STA 850 
8770 68 PLA 

8771 85 51 STa si 
8773 AS 55 LDA 855 
B775 48 PHA 

B776 98 TYA 

B777 48 PHA 

B778 AO 00 LDY #800 
B77A 8A TXA 

877B 60 RTS 
[LELSTERTETETEREETEIEITETIETEN 
B77C 20 82 87 JSR 38782 
B7TF 4C A2 BJ JMP #63A2 


BIETILZETTEZZZSZELZZ ZZ DES IE DZ 


neuen String ın Stringbereich ubertragen 
Descriptor in Stringstack brıngen 


BASIC-Funktion RIGHTS 
Stringparameter und Länge von Stack holen 


von Stringlänge abziehen 

Nuaner des ersten Elesents ın alten String 
weıter wie LEFTS 

BASIC-Funktion MIDE 

CHR6OT letztes Zeichen holen 

")° Klamaer zu 

pruft auf Konsa 

holt Byte-Wert, zweiten Paraneter 


Stringparaneter und Startposition holen 
1. Parameter null, 'ıllagal quantıty' 


Nuaaer des ersten Elenents im alten String 


Lange des alten Strings 
kleiner erster MiD-Paranataor 
neue Stringlänge 


unbedingter Sprung 


Stringparameter numer, Wert von Stack holen 
prüft auf Klanner zu 


Aufrufadresse aerken 


1. Paraneter 


Adresse low und high des Stringdescriptors 


Aufrufladresse nieder auf Stack 


Länge, zweiter Paraneter 


BASIC-Funktion LEN 
FRESTR, Stringlänge holen 
Byte-Wert nach Fließkomaaforaat wandeln 


Stringparaneter holen 
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8782 29 AS B& JSR #B6A3 
B785 a2 00 LDI #809 
B787 86 0D STX s0D 
8789 AB TAY 

B78A 60 RTS 
ALILEERSLESEZEREETETTEIETET ET 
B78B 20 82 87 JSR 38782 
B78E FO 08 BEQ 58798 
8790 AO 00 LDY 4800 
8792 81 22 LDA (822) ,Y 
8794 AB TAY 

6795 “c A2 B3 JMP sB3A2 
8798 4C 48 B2 JMP 58248 
LILLETEIERTESTIZERTESEIETIER TE 
B79B 20 73.00 JSR 80073 
B79E 20 BA AD JSR SADBA 
B7Aı 20 BB Bi JSR #B1B8 
D7A4 Ab 44 LDx 864 
B7A& Do FO BNE 35798 
B7A8 Ab 65 LDX 865 
87AA 4C 79.00 JHP 80079 
BEUEEREREERRERRRRRAUSERFERD RE 
B7AD 20 82 87 JSR 68702 
8780 D0 03 BNE $B7B5 
8752 4C F7 BB JmP #Bar7 
8785 Ab 7A LDX 7A 
87B7 As 78 LDY #7B 
8759 8 7ı stı st 
B7B8 84 72 sTY #72 
B?7BD Ab 22 LDX #22 
B7BF 86 7A STX 87A 
B7c1 18 ELc 

B7C2 65 22 ADC #22 
B7C4 85 24 STa #24 
B7C& A& 23 LDX 823 
B7C8 86 7B STE #7B 
B7CA 90 01 BCC #B7CD 
BICC E8 INX 

B7CD 84 25 ST #23 
B7CF ao 00 LDY #800 
B7D1 Bl 24 LDA (824),Y 
87D5 48 PHA 

8704 98 TYA 

8705 9124 5TA (824) ,Y 
8707 20 79 00 JSR 80079 
87DA 20 F3 BC JSR $sBEFS 
B7DD 68 PLA 

B7DE RO 00 LDY #800 
B7EO 9124 STA (#24),Y 
B7E2 Ab 71 LDdx 671 
B7EA As 72 LDY #72 
B7E& 86 7A STX #7A 
B7EB 84 7B STY #7B 
B7EA 60 RTS 


LUEIELEZEREZZZIELKEZEZZEZZ EEE) 


B7EB 


20 BA AD 


JSR 


sADBA 


FRESTR, String holen, Länge in A 


Typtlag auf nunerısch setzen 
Länge ın Y 


BASIC-Funktion ASCL 
String holen, Zeiger in #22/823, Länge In Y 
Lange gleich null, "illegal quantity' 


erstes Zeıchen holen 
ASCII-Kode 

nach Fließkonna wandlen 
“illegal quantity' 


holt Byte-Wert nach X 

CHRGET nächstes Zeichen holen 

FRHNUK nuserıschen Wert nach FAC holen 
prüft auf Bereich und wandlet nach Integer 
Hıgh-Byte 

ungleich null, dann "illegal quantıty" 


CHRGOT letztes Zeichen holen 
BASIC-Funktion VAL 
Strıngadrese und Lange holen 
Stringlänge ungleich null ? 
null in FAC 


Progrannzeiger retten 


Stringanfangsadresse in Stringzeiger bringen 


Stringendadresse + I 


erstes Byte nach String 
retten 


und durch null ersetzen 

CHRGOT letztes Zeichen holen 
String in Fließkoanazahl uawandlen 
leichen nach String 


wieder zurücksetzen 


Prograaazeiger wieder zurückholen 


BETADR und GETBYT holt 16-Bit und @-Bit-Wart 
FRMNUM holt nunerischen Wert 
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B?7EE 20 F7 B7 JSR $B7F7 FAC nach Adresstoraat wandlen 314/815 


B7Ft 20 FD AE JSR SAEFD CHKCON pruft auf Konna 

B7F4 4C 9E B7 JMP $B79E holt Byte-Wert nach I 
assaersasaaenmseenkaseessanann GETADR FAC ın postive 15-Bıt-Zanl wandeln 
B7F? AS 66 LDA 656 Vorzeichen 

B7F9 30 °D BMI 68798 negativ, dann 'ıllegal quantity' 
BIEB 3 Al tRP iRdı GARPrEDE 6553& vergleichen 
BIEF Bo 97 BCS $8798 größer, dann 'ıllegal quantıty“ 
8801 20 98 BC JSR #BC9B FAC ın Agresstornat wandeln 
BB04 AS 64 LDA 664 

B806 Aa 65 LDY 865 Wert holen 

BB08B 84 18 SsTY sı4 und nach 814/815 

BS0A 85 15 STa 615 

BBOC 60 RIS 

anausaasnrtabertsanereruu nee BASIC-Funktion PEEK 

BB0D a5 15 LDA $15 

880F 48 PHA Adresse $14/F15 sıchern 

BBIO AS 18 LDA #18 

BB12 48 PHA 

8813 20 F7 B7 JSR SB7E7 FAC nach Adresstformat wandeln 
BBlb AO 00 LDY 4300 

BB18 BI 15 LDA ($14),v Peer-Wert holen 

BEI A AB TAY nach Y 

BB1B 6B PLA 

BötC 85 14 STA sı3 

BBLE Ct) PLA Adresse zuruckholen 

BeIF 85 15 STA 815 

8821 ac A2 BS  JMP 6B35A2 Y nach Fliefkonnaftoraat 
Barmen nehratatel teen ea rear BASIC-Befehl POKE 

8824 20 EB B7 JSR $B7EB Pore-Adresse und Kert holen 
8827 8A TxA Poke-Nert ın Akku 

9826 AO 00 LDY 9800 

BB2ZA 91 14 STA t#14),Y und in Speicher schreiben 
B82C 60 RIS 

aadausrRanaseT nn BASIC-Befehl WAIT 

5882D 20 EB B7 JSR $B7EB Adresse und Wert holen 

BO30 85 49 STT 649 

8932 A2 00 LDX 0600 Default #ur dritten Paraneter 
BB34 20 79 00 JSR 80079 CHRGOT letztes Zeichen 

8837 FO 03 BEQ sBBSC kein dritter Parameter ? 

B839 20 Fi B7 JSR $B7Fi prutt aut Komma und holt Paraneter 
Best 86 4A STX $#4A 

BBSE AO 00 LDY 0300 

BB40 Bi 14 LDA (s14),Y Wait-Adresse 

B842 45 4A EOR 84A 

8844 25 49 AND 849 logısch verknüpfen 

BB4& FO FB BEQ 589409 weiter warten 

B848 60 RTS 


WUUTRRERERRASESTTAERTSHE HUB Arıthaektik-Routinen 


Arrays ERatRe ae FAC = FAC + 0.5 


B849 a9 11 LDA as1l 
BB4B ao BF LDY #sBF Zeiger auf Konstante 0.5 
BB4D 4C 67 B8 JKP 8867 FAC = FAC + Kanstante (A/Y) 
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LAD ZEZLZEZE ZEIT ZSTZZZTZZERE N DIE 


Be50 20 8C BA JSR #BABC 
LELZESTZ STIER ZEITIURTIETETTERTS 
8853 AS 66 LDA #66 
8855 3ı FF EOR SFr 
B857 85 66 STA 864 
8859 45 6E EOR $4£ 
B85B 85 öF STA $6F 
885D A5 61 LDA 861 
Besrf 4C 6A BB JnP #BB86A 
LAST IS TTZTETZSEITERETTEU TUE EET 
8862 20 99 B9 JSR 38999 
B865 99 SC BCC $BAAS 
ALIEETERETERENEEREREITEIE RENT T 
8867 20 8C BA JSR #BABC 
AKELIETEZETETSSERTESTEREIIEIERT 
Ba6A DV 08 BNE #BB6F 
BBsC 3C FC 8B JNP sBBFC 
BBAF Ab 70 LDX 870 
5871 86 56 STX 856 
B87% A2 69 LDX 0669 
5875 AS 69 LDA 869 
8877 AB Tar 

6878 Fo CE BEQ #8848 
BB7A 38 SEC 

BB7B ES 61 SBC #61 
B87D FO 24 BEQ #BBAJ 
Ba7F 912 BCC 8893 
8881 84 61 STY #61 
B885 Ag 6E LDY 86E 
B885 84 66 STY #66 
B867 ar FF EDR O8FFf 
B889 69 00 ADC 06009 
B888 AO 00 LDY #800 
888D 84 56 STY 456 
BaBF A2 61 LDX 9861 
Ba Do 04 BNE #B897 
B89J3 AD 00 LDY 0800 
B895 84 70 sTtY s70 
8897 c9 F9 CnP asF9 
5899 30 C7 8MI #862 
Ba9B a8 TAY 

B89C AS 70 LDA #70 
BBIE 56 01 LSR s01,X 
BBAO 20 BO B? JSR #B9BO 
BBAJI 24 6F BIT 66F 
BBAS 10 57 BPL #BBFE 
BBA7 AO Al LDY 4861 
BBAI EO 49 CPX 0869 
BB8AB FO 02 BEQ #BBAF 
BBAD AO 69 LDY #869 
BaAF 38 SEC 

B8B0 a9 FF EOR ®sFF 
BBB2 65 5& ADC 856 
BaB4 85 70 STAa #70 
:117 87 04 00 LDA 90004 ,Y 


Mınus FAC = Konstante (A/Y} - FAC 
Konstante (A/Y) nach ARB 
Mınus FAC = ARG - FAC 


Vorzeichen undrehen 


FAC = FAC + ARG 


Expanenten von FAC und ARB angleichen 


FAC = Konstante (A/Y) + FAC 


(A/Y) nach ARG 


Plus 
Konstante 


Plus FAC = FAC + ARG 


FAC ungleich null ? 
neın, dann FAC = ARG 
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B8B9 
BaBB 
BBBD 
BBcO 
BSC2 
B8C4 
BaCc7 
B6C9 
BBCB 
BECE 
8800 
8802 
B804 
B8D7 
8809 
BBDA 
BaDB 
BBDD 
Bedr 
BBEI 
BBES 
BBES 
B8E7 
BEE? 
BBEB 
BBED 
BBEF 
BarI 
BOFS 
BBFS 
8er7 
BF? 
BSFB 
BBFD 


BOFE 
B900 
8902 
8904 
8906 
8908 
B90A 
BF0C 
B90E 
8919 
B912 
B914 
BI16 
B918 
BILA 
BIID 
BIIF 
B#21 
B923 
8925 
9927 
8929 
892B 
B9I2C 
BI2E 


04 
65 
03 
03 
64 
02 
02 
63 
0 
01 
62 
03 
47 
00 


62 
an 
63 
[y 
ba 
63 
65 
64 
70 
65 
0 
08 
20 
E& 
00 
& 
66 


ss 
70 
65 
6D 
65 
64 
sc 
64 
63 
68 
63 
62 
6A 
62 
3 
01 
70 
65 
64 
63 
62 
F2 


6l 
c7 


00 


00 


00 


B9 
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SBC 
STa 
LDA 
SBC 
STA 
LDA 
SBC 
sTa 
LDA 
SBC 
STa 
8CS 
JSR 
LdY 
TYA 
cıLc 
LDXx 
BNE 
LDx 
sTı 
LDX 
STX 
LDX 
stı 
LDı 
5Tr 
STY 
ADC 
cnP 
BNE 
LDA 
STA 
STa 
RIS 


ADC 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STa 
LDA 
ADC 
$STA 
LDA 
abc 
STA 
JnP 
Abt 
ASL 
ROL 
ROL 
ROL 
ROL 
BPL 
SEC 
sBc 
BCS 


s0,1 
s65 
$0003,Y 
*03,X 
364 
80002,Y 
02,X 
863 
80001,Y 
#01,X 
362 
sb8D7 
88947 Mantisse von FAC invertieren 
#800 


#52 
#8929 
865 
562 
864 
$63 
865 
#64 
sro 
865 
sr 
us08 
220 
sBEDB 
“00 
si 
$66 


356 
#70 
565 
s60 
#65 
364 
sec 
564 
663 
#6B 
663 
#62 
ssA 
s62 
sB9356 
18501 
0 
%65 
464 
sb) 
#62 
sB91D 


#61 
sBar7 
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8930 a9 FF EOR #sFF 


8932 69 01 ADC 801 

B934 85 61 STA 861 

B936 90 0E BCC 98946 

8338 Ed dl INC $61 

BIIA FO 42 BEQ $B97E 

BIC bb 62 ROR #62 

BIIE 66 63 ROR 363 

8940 66 64 ROR $64 

8942 66 65 ROR 865 

8944 66 70 ROR 870 

8946 60 RIS 
AldsdaessTamsseraraahansaeınaa Mantısse von FAC ınvertieren 
8947 AS 66 LDA #66 

8949 49 FF EOR #SFF 

B94B 85 66 STA 666 

894D a3 62 LDA 862 

BIAF 49 FF EOR usFFf 

B951 85 62 STA #62 

8953 AS 63 LDA $63 

8955 49 FF EOR asFf 

B957 85 63 STA #63 

B959 A5 64 LDA #64 

B95B a9 FF EOR &8sFF 

B9SD 85 64 STA 8654 

BSSF AS 65 LDA #65 

8961 aT FF EOR asFFf 

8963 83 65 STA #63 

8965 AS 70 LDA 870 

B967 49 FF EOR S$FF 

896? 85 70 STA 879 

B96B Es 70 INC #70 

B96D 00 0E BNE #897D 

B96F €& 65 INC 965 

B971 00 0A BNE #B977D 

B97J Eö 64 INC 964 

B975 00 06 BNE #897D überträge berucksichtigen 
8977 Ed 63 INC 863 

8979 DO 02 BNE 8B97D 

897B Es 62 INC #62 

8970 60 RTS 

BITE A2 oF LDx ns0orF Nuaser fur 'overflow' 
BIO 46 37 AA JMP 85A437 Fehleraeldung ausgeben 
Ubtaneanpassanasaensuuneekennı Rechtsverschieben eınes Registers 
B983 A2 25 LDxX 88325 Offsetzeiger auf Register 
8985 B4 04 LDY 804,X 

8987 84 70 STY 870 

8989 Ba 03 LDY $03,X 

B98B 94 04 STY 504,1 

BPBD BA 02 LDY 602,X 

BIBF 9 03 STY 605,X 

8991 Ba 01 LDY 8#01,X 

8993 94 02 STY 802,X 

8995 A4 68 LDY #68 

8997 94 01 STY 901,X 

8999 69 08 ADC 8808 

B9#7B 30 EB BAI 8965 
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8990 Fo E& BEQ 8B985 


Ba9IF E9 08 SBC #808 

BA AB TarY 

8942 AS 70 LDA 870 

B9A4 BO 14 BCS #69BA 

BIAL& 16 01 ASL 801,X 

BFAB 90 02 BCC $SBIAC 

BIAA F6 01 INC $01,X 

BIAC 76 01 ROR $01,X 

BFAE 76 91 ROR s01,X 

B9?BO 7b 02 ROR 802,X 

B9B2 76 03 ROR 803,X 

B9B4 76 0& ROR 804,8 

B9Bs &A ROR A 

B9B7 CB INnY 

B9BB DO EC BNE $#B9A& 

B9BA 18 ELC 

BSBB 60 RTS 

[EELZIEELLEELUETTETLEELEERT Konstanten fur LOG 

BIBC Bi 00 00 00 00 ı 

BrCI 95 3 = Polynomgrad, dann 4 Koetllızıenten 
B9C2 IF SE 56 CB 79 .434255942 

B9C7 80 13 9B UB 65 576584541 

BICC 80 75 38 95 16 .951800759 

BIDI 82 38 AR IB 20 2.88539007 

8705 80 35 04 FJ 34 «707105781 = 1/5S0RL2) 
B9DB 81 35 04 F3 34 1.41421356 = SOR(D 

BIEO 80 80 00 00 00 -,.5 

B9ES 80 31 72 17 F& .693147181 = LO6D) 
VRERTREUERIRTRTRR TRIER UHR BASIC-Funktion LOG 

BEA 20 2B BC JSR sBC2B Vorzeichen holen 

BIED FO 02 BEO $B9FI null, dann fertig 

BIEF 10.03 BPL sB9F4 posıtiv, dann ok 

BIFL 4C 48 B2 J4P sB2%8 “ıllegal quantity’ 

BSF4 AS 61 LDA 661 Exponent 

BIF& E9 7F SBC as7F noraalısıeren 

BPFE 48 PrlA und serken 

BIFI A9 80 LDA 9180 Zahl in Bereich 0,5 bis | 
BIFB 85 61 STA #61 bringen 

B9IFD AI Db LDA #606 

BIFF a0 B9 LDY #559? leiger auf Konstante 1/SQRL(2) 
BAOL 20 67 B8 JSR 58867 zu FAC addieren 

BAO4 A? DB LDA #3DB 

BAO& AO BF LDY 3859 Zeıger auf Konstante SORL(2) 
BAOB 20 OF BB JSR 3BBOF SOR(2) durch FAC dıvidieren 
BANB A9 BC LDA N6BC 

BAOD AO B9 LDY 0sB9 Zeiger auf Konstante I 

BAOF 20 50 BB JSR sB850 1 ainus FAC 

BAIZ As Ccı LDA #sC1 

BA14 AO BF LDY 05569 Zeiger auf Polynoskoeffizienten 
BAlb 20 45 EO  UJSR $E04I Polynoaberechnung 

BA1F A? £O LDA 8$E0 

BAIB AO BP LDY 9469 Zeiger auf Konstante -0.5 
BAID 20 67 BB JSR 68867 zu FAC addieren 

BA2O 68 PLA Exponent zurückholen 

BA21 20 7E BD JSR $BD7E FAC = FAC + FAC 

BA24 a9 E5 LDA #8E5 

BA2b AO B9 LDY #959 Zeiger auf Konstante LOG(2) 
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UESERERUREBTERTEBUSEBERERBEREN 


BA28 20 8C BA JSR #BABC 
ILZELIEIETTTERUIIEITTEIETUIT EN 
BA2E D0 03 BNE &BASO 
BA2D sC 86 BA JNP $6AUB 
BASO 20 B7 BA JSR #BAB7 
BAS3 A909 LDA #800 
BASS 85 26 STA 826 
8A37 95 27 STA 827 
BA3SI 85 28 Sta #28 
BASB 85 29 STA #29 
8AsD AS 70 LDA 870 
BASF 20 59 BA JSR +BAS9 
8Aa2 AS 65 LDA 865 
BAs& 20 59 BA JSR sBA59 
8447 AS 64 LDA 864 
6A39 20 59 BA JSR #BAS9 
BAC AS 63 LDA #63 
BASE 29 59 BA JSR $BAS9® 
BASI AS 82 LDA #62 
BAS3 20 SE 8A JSR $BASE 
BAS5& sc ar BB JMP $BBAr 
ILZEIEEUTFEITERTIUERERETETTETT 
BA59 09 05 BNE sBASE 
BASB 4C 85 B9 JnP *#B983 
BASE 4A LSR A 
BASF 99 86 ORA "#80 
BAöL AB TAY 

BA6b? 9.19 BCC #BAT7D 
BA&4 18 cLc 

BA65 AS 29 LDA #29 
5967 65 6D ADC 66D 
BA69 85 29 STA $29 
BAdB AS 2B LDA $28 
BAsD 65 6C ADC s6C 
BA6F 85 28 STA +28 
BATIL AS 27 LDA 827 
BA73 65 6B ADC $#6B 
BA7S 85 27 STA #27 
BA77 AS 26 LDA #26 
BATF 65 6A ADC #6A 
BA7B 85 26 STA s26b 
BA7D 66 26 ROR #26 
BATF 66 27 ROR #27 
BABI 66 28 ROR #28 
BA8S 66 29 ROR $29 
BABS 66 0 ROR $70 
BAB7 98 TYA 

BABB aA LSR A 
BA? DO D& BNE #BAB6l 
BABB 60 RTS 
[LIZEEZIRZURIT IRRE SETZE EZ 
BABC 85 22 STa $22 
BABE 84 23 sTY $23 
BAIO AD 04 LDY 9804 
BA92 Bl 22 LDA (822) ,Y 
BAI4 95 &D STA #60 
BA®& 88 DEY 


Kultiplikatıon FAC = Konstante (A/Y) 
Konstante nach ARG 


Bulcıplıkation FAC > ARG » FAC 
nıcht null ? 


RTS 
Exponent berechnen 


Funktionsregister löschen 


bitweiıse Multıplikatıan 
bitweise Multıplıratıon 
bıtweise Multiplikatıon 
bitweise Multiplikation 
bıtweirse Multiplikatıon 
Register nach FAC, lınksbündıig aachen 


bıtweıse Multiıplikatıon 


rechtsverschieben des Registers 


ARG = Konstante IA/Y) 


leiger 
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» FAC 


BA97 B1 22 LDA 1522),Y 
BA99$ 85 6C STA $6C 
BA?B 88 DEY 

BASC B1 22 LDA (822) ,Y 
BAIE 85 68 STA $6B 
BAAO 88 DEY 

BAAI B1 22 LDA (822),Y 
BAAJ 85 6E STA $6E 
BAAS 45 66 EOR $66 
BAA7 e5 öF STA s6F 
BAA9 AS &E LDA $6E 
BAAB 09 80 ORA #880 
BAAD 85 dA STA $6A 
BAAF 88 DEY 

BABO BL 22 LDA {8223 ,Y 
BAB2 85 6? STA 859 
BAB& AS dl LDA $6l 
BAB6 60 RTS 

BAB? AS 69 LDA 869 
BAB®? FO ıF BEO FBADA 
BABB 18 CLc 

BABC 65 bl ADC 951 
BABE 90.08 BCC $EACH 
BACO 30 ıD BMI sBADF 
BAC?2 18 cc 

BACS 2C .BYTE #2C 
BACAa 10 14 BPL £&BADA 
BAC& 69 80 ADC 8580 
BACB 85 &1 STA #61 
BACA DO 03 3NE SBACF 
BACC ac FB BB JmP sBarB 
BACF AS 6F LDA sFr 
BAD 85 66 STA $66 
BADS 60 RIS 

BAD& A5 66 LDA $66 
BAD& a9 FF EOR s8sFF 
BADB 30 05 BA $BADF 
BADA 68 PLA 

BADB &B PLA 

BADE 4C F7 BB JnP sBOrF7 
BADF 4C 7E B9 JAP sB97E 
LLSETETIETZEIZUTEIITIEITERTETT I 
BAE2 29 OC BC JSR sBCOC 
BAES AA TAX 

BAE& FO 10 BEQ $BAFB 
BAEB 18 CLC 

BAE9F 69 02 ADC 8802 
BAEB BO F2 BCS sBADF 
BAED a2 00 LDX 48500 
BAEF B6 6F STA $6F 
BAFI 20 77 BB JSR 58877 
BAF4 Eb 61 INC #61 
BAF& FO E7 BE@ $BADF 
BAFB 60 RTS 


AALEN ZEZZZSZEZSZEZEZEZZEIZ ZI ZEN 


BAF® 


ÄEZELZZZELEELZEZZSZZELZESZ DE ZI 


B4 20 00 00 00 


Konstante nach 


Vorzeichen 


Exponent 


FAC = 0 


FAC = 0 
“overflow error 


FAC = FAC » 10 


ARG 


FAC runden und nach ARG 


FAC gleich null 


‚ dann #ertıg 


Exponent + 2 entspricht mal 4 


übertrag ? 


FAC = FAC + ARG 


entspricht nal 5 


Exponent erhöhen entspricht aal 2 


ubertrag, dann 


“overflon' 


Fließkossakonstante 10 


FAC = FAC / 10 
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BAFE 20 ©C BC JSR $BCHC 
BBO1 AI F9 LDA nsF9 
8803 AO BA LDY #8BA 
B805 a2 00 LDX #800 
6607 86 #F STX $6F 

BB09 20 A2 BB JSR $BBA2 
BBOC 4C 12 86 JMF $8B12 


LLLZEZZIZTEITETERTIRTETE EIS 


8Bor 20 8C BA JSR $BAST 


ALEZZEZZZZZEZ ZEN ZIZZERZ ZZ ZZ ZZ 


BB12 FO 76 BEQ #BBBA 
BB14 20 ıB BC JSR $BC1B 
BBI7 a9 00 LDA 0500 
BB19 38 SEC 

BBIA ES 1 SBC $61 
BBIC 85 61 STA $6l 
BEIE 2) B7 BA JSR $BAB7 
BB21 E6 61 INC #61 
BB23 FO BA BEQ 6&BADF 
8825 A2 FC LDx 8&sfc 
BB27 a9 01 LDA 8501 
8829 na 6A LDY $6A 
B82B c4 82 CPY 862 
BB2D Do 19 BNE $BBSF 
BB2F as 6B LDY 6#5B 
BB31 C4 63 CPY $63 
8833 D0 0A BNE $BBJF 
8B35 As 6C LDY $6C 
BB37 Ca 58 CPY #54 
BB39 00 04 BNE $BB3F 
8576 As 6D LDY $6D 
BB3D Ca 65 CPY #65 
BBJr 08 PHP 

BB4N 2A ROL A 
BBA1 90 09 BCC KBBAC 
BB4J E8 INX 

BBA4 95 29 STA #29,X 
8846 Fo 32 BEQ #BB7A 
BB48 10 34 BPL *#BB7E 
BBIA AI 01 LDA 8801 
BBAC 28 PLP 

BB4D BO 0E BCS sBBSD 
BBAF 06 6 ASL #60 
BB51 26 &C ROL $6C 
8853 26 &6B ROL #6B 
8855 26 6A ROL $6A 
BB57 BO Ed BCS #BBJF 
BB59 30 CE BI $BB29 
BBSB 10 E2 BPL $BBJF 
BBSD AB TAY 

BBSE AS 6D LDA $&D 
BB&AO ES 65 SBC #65 
BBb62 85 60 STA $6D 
BB64 a5 &C LDA #6C 
BB66 ES 54 SBC #64 
BB6B 65 6C STA $6C 
BB6A AS 6B LDA $6B 
BBeC ES 63 SBC 865 


FAC runden und nach ARGB 
leıger auf Konstante 10 
Konstante 10 nach FAC 
FAC = ARS / FAC 


FAC = Konstante (A/Y) / FAC 
Konstante (A/Y) nach ARG 


FAC = ARG / FAC 
FAC gleich null, 
FAC runden 


"dıvision by zero’ 


Exponent des Ergebnisses bestiasen 


Exponentenuberlauf, 'overtlow 


leiger auf Funktionsregister 


ARG aıt FAC byteweise vergleichen 


Status retten 
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BBöE 85 68 STA #6B 
BB7O AS EA LDA #64 
BB72 ES 82 SBC #62 
BB’4 85 6A STA $6A 
BB?& 98 IYA 

BB77_ ACC AF BB JMP sBBAF 
BBTA A940 LDA 0540 
8B7C DO CE BNE SBBAL 
BB7E 0A esL A 

BB7F 0A ASL A 

BBBO CA ASsL A 

BBBI oA #SL A 

8B82 0A ASL A 

BB83 oA ASL A 

BBB4 85 ?0 STA 870 
BBBS 28 PLF 
BBB7TAC BF BB JUMP sbBEr 
ALIEN EZ ZZZZERZENZZEZE ZEN ZI ZZ ZZ 
BBBA A214 LDx asıa 
BBBC A037 AS JMP 8As37 
LEEREN ZEZZERZZEEZZZEZZT III TE 
BBBF AS 2Zo LCA $26 
BB91 B5 &2 Sta 862 
8695 AS 27 LDA 827 
8895 85 63 STA 665 
8897 a5 28 LDA #28 
BE99 85 64 STA $64 
BB98 AS 29 LDA 3237 
BBSD 85 65 STA 165 
BBSF  &C D7 BE JUMP %B8D7 
LZZEZEZZELELZEIZEETEIZET ZZ TIGE 
BBA2 85 22 STA #22 
BBA4 84 23 SsTy 823 
BBAs AO 04 LDY 0804 
BBAB Bi 22 LDA (822) ,Y 
BBAA 85 65 STA 865 
BBAC 88 DEY 

BBAD 81 22 LDA 1(322),Y 
BBAF 85 64 STA #64 
BBBI 88 DEY 

BBB2 Bi 22 LDA (822) ,Y 
BBB4& 85 43 STA 86% 
BBB& 88 DEY 

bBB7 BI 22 LDA (822),Y 
BBB? 85 66 STA $66 
BBBB 09 80 ORA #880 
BBBD 85 62 STA 962 
BBBF 88 DEY 

BBCC Bı 22 LDA (822),Y 
BBC2 85 d! STA s6l 
BBCA B4 70 STY 870 
BBC& 60 RTS 
IKEZEKERZZZZZZERZZER ZZ ZZ ZT ZZ 
BBC?7 a2 Sc LDx #s5C 
BBL? 2C .BYTE 82C 


Akru » 68 


rılfsregister nach FAC 


Nueser fur "divısıon by zero’ 
Fehlerselgung ausgeben 


Hılfsregister (#25 - 829) nach FAC 


FAC linksbundig machen 
Konstante (A/Y) nacn FAL ubertragen 


leıger setzen 


Mantısse 


Vorzeichen Nantısse 


Exponent 


FAC nach Akkus4 ubertragen 
Adresse low Akkus4 
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ubertragen 


DEAUSERSERAUERSTTEERRERRTTENND 


BBcA a2 57 LDx 0857 
BBCC AO 00 LDY 8500 
BBCE FO 04 BEO sBBDA 
ÄAEZZZZZSEZZEZER ZEN ET ZERTIITT 
BBDO_ A649 LDr 549 
BBDZ a4 4A LDY #4A 
BBDa 20 IB BC  JSR SBCIB 
BB07 686 22 STX 522 
BBo9 842 STY 823 
BBOB kö 08 LDY 08504 
BBOD AS 65 LDA #65 
BBoF 91 22 STA (822) ,Y 
BEEI 88 DEY 

BBED AS 68 LDA $04 
BBEa 01 22 STA (#221,Y 
BBEb BB DEY 

BBE?T AS 65 LDA #63 
BBE® 91 22 STA (822),Y 
BBEB 88 DEY 

BBEC AS 66 LDA 866 
BBEE 09 7F ORA u87F 
BBeO 25 62 AND 662 
EBF2 912 STA (822) ,Y 
BBFs 88 DEY 

BBFS AS 61 LDA #61 
BBFT 91 22 STA (#22),Y 
BBFS_ 84 70 STY 870 
BBFB 60 ATS 
ÄKZEREKELEEZLETERELZZZEE ZZ ZEN 
BBFC AS 6E LDA $6E 
BBFE 85 66 STA #66 
BC0O #205 LDxX 0508 
BCO2 85 68 LDA $6B,X 
BCO4 95 80 STA 860,1 
BCO6 Ca DEX 

8C07_ DO F9 BNE $BC02 
BCO9 86 70 STX 870 
BCOB 60 RTS 
IEZTETEREITZEIZERSTER ZEITEN ED 
BCOC 20 ıB BC JSR $BCIB 
BCOF A2 06 LDX #806 
BCit 85 60 LDA $60,% 
BIS 95 68 STA #6B,X 
BCIS CA DEX 

BCi6 DO F9 BNE #BCHI 
BCIBO 84 70 STK 870 
BCIA 60 ATS 

LEE TTZERTESZERTTEEZZZEZ ZEN 
BCIB AS st LDA #61 
BCID FO FB BEO $BCIA 
BCIF 06 70 ASL 870 
BC2i 90 F7 BCC $BCIA 
BC23_ 20 6F B®  JSR 6B96F 
BC26 DO F2 BNE $BCIA 
BC28 ac 38 B9 JMP sB938 


FAC nach Akkub3 übertragen 
Adresse low Arbus3 

Adresse hıgh 

unbedingter Sprung 

FAC nach Varıable ubertragen 


Variablenadresse 
FAC runden 


leiger auf Zieladresse 


Vorzeichen auf Speicherfornat bringen 


ARG nach FAC übertragen 


5 Bytes 


FAC nach ARG übertragen 
FAC runden 


FAC runden 
Exponent null, dann fertıg 


Rundungsstelle größer #7F ? 
nein, dann fertig 
Mantisse um eins erhohen 


jetzt null ? j 
nach rechts verschieben, Exponent erhöhen 
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sauussaaaatasteaksaneaerrra Vorzeichen von FAC holen 


BC28 AS &l LDA 861 aull ? 
BC20 FO 05 BEB +$BC38 

BC2F RS 66 LDA #66 

BC3! 2a ROL A 

EC32 AS FF LDA #3FF negatıv 
BC34 80 02 6C5 #BC35B 

BC3& 48 01 LDA 8801 posıtıv 
BC5B 0 STs 
sarsetcaıukrteereeauereratasınınn  BASIC-Funktion SEN 
8635 20 28 BC JSR #BC2B Vorzeichen holen 
BCSC 85 62 STA 562 

LIE AF 00 LDA 8800 

BC40 85 53 STA $6J 

Bca2 a2 EB LDX #588 

BCa4 a5 42 LDA #62 

BC&b ka FF EOR eff 

BC48 2a ROL A 

BCa9 a9 00 LDA #500 

BCAB 85 65 STa s68 

BCAD 85 68 STAa sa& 

BCEF e6 bi STK Sb1 

BC51 85 70 STa 870 

BC55 85 65 STA $6& 


BC55 ac D2 58 ImP sBaD2 


araurerskaraeesunsarne hen BASIC- Funktion ABS 


8c5e 66 66 LSR #66 Vorzeichenbit löschen 
BCSA 60 RTS 


Beeruntaneenenanuuhaseneenaner Vergleich Konstante (A/Y) ait FAC 
btSB 65 2% STA 824 


BCSD 84 25 STY 525 leıger auf Konstante 
BESF RO 09 LDr 1800 

BC6i B1 28 LDA (824) ,Y Exponent 

8C63  C6 INY 

BL&s AL TAX 

BC65 r0 C4 BEQ sEC2R null, dann Vorzeichen von FAC holen 
BC67 Bl 24 LDA t#24),Y 

BC69 5 66 EOR 866 

BC5B 30 €2 bnI sBC2F verschiedene Vorzeichen 
BC&D Es 61 CPxX 861 

BCör Do 21 BNE 86692 

B8C71 B1 24 LDA (8221 ,Y 1, Byte vergleichen 
BC75 09 80 ORA 8580 

BC75 c5 62 CnP 862 

6077 00 19 BNE $#BC92 

BC79 cB InY 

BC7A Bl 24 LDA (824) ,Y 2. Byte vergleichen 
BETT 15 535 CMP 563 

BC7E 00 12 BNE $BC92 

acBß0 CB INY 

BCBI Bi 24 LDA (824) ,Y 3. Byte vergleichen 
BCa3 5 64 CHP #64 

8C85 Do 08 BNE #BC92 

BC97 CB INY 

DcEe9 AI TF LDA 0837F 

BCBA c5 70 CHP #70 

BCEC pı 24 LDA (824) ,\ 4. Byte vergleichen 
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BCBE ES 65 SBC #65 


890 FO 28 3EQ sBCBA 

6692 AS 66 LDA #66 

BC94 90.02 BCC 8BC98 

BC96 47 FF EOR as6FFf Ergebnis kleiner, dann invertieren 
5C98 4C 31 BC JMP #BCI1 Flag für Ergebnis setzen 
KelsaesyHaTsRuEenTaneeeerene Umwandlung Fließkonsa nach Integer 
BC9B AS 61 LDA $61 Erponent 

BCSD FO SA BEO 3BCE9 aull ? 

BCHF 36 SEC 

BCAO E9 AO SBC #8A0 

BCA2 24 b6 BIT 566 

BCA4 10 09 BPL $BCAF 

BCA& AA TAX 

BCa7 AI FF LDA sFr 

BCAS 85 68 STA 868 

BCAB 20 4D 897 JSR $D94D Mantisse von FAC ınvertieren 
BCAE 8A TAaaA 

BCAF A2 61 LDX #861 

BCBI c9 F9 CHP 0$F9 

BCB3 10 06 BPL $BCBB 

BCBS 20 99 B9 JSR 68999 FAC rechtsverschieben 
BCB8 84 68 STY 668 

BCBA 60 RTS 

BCBB A8 TAY 

Becbc AS 66 LDA $6& 

BCBE 29 80 AND "#80 

BCCO 46 6b LSR 862 

BCC2 05 62 ORA 862 

BCC4 85 62 STA #62 

BCC6 20 BO 89 JSA 5B9BO FAC bitweise nach rechts verschieben 
8cc9 84 68 STY 568 

BCCB 60 RTS 

Taesnasuısaanueasnnneeuunnanee BASIC-Funktion INT 

BCCC AS 61 LDA 661 Exponent 

BCCE c9 Ad CHP asA0 ganze Zahl ? 

8CDO BO 20 BCS sBCF2 3a, dann fertig 

BCD2 20 9B BC JSR #BC9B FAC nach Integer wandeln 
BCDS B4 70 STY #70 

BCD?7 AS 66 LDA 66 

BCD9 84 66 STY #66 

BCDB 49 80 EOR #680 

BCDD 2A ROL A 

BCDE a9 AO LDA 48A0 

BCEO 85 41 STA $61 

8CE2 AS 65 LDA #65 

BCE4 85 07 STA #07 

BCE& 4C D2 BB JNP #B8D2 FAC linksbündig aachen 
BCEF 85 62 STA #62 Mantısse sit nullen füllen 
BCEB 85 63 STA #63 

BCED B5 64 STA 664 

BCEF 85 #5 STA 865 

BCFI AB Tar 

BCF2 60 RTS 


auenanraenonnenurensusruennuee Umwandlung ASCLII nach Fließkommafornat 
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BCFS 
BCFS 
BCF7 
BCF® 
BCFA 
BCFC 
BCFE 
BDOooO 
BD02 
BD04 
BDO& 
BDO8 
BDOA 
BDOD 
BOOF 
BDI11 
BDIS 
BD15 
BD17 
BDIA 
BDIC 
BDIE 
BD29 
BD22 
6024 
BD2& 
8028 
BD2A 
BDZC 
BD2E 
8030 
8033 
8035 
8037 
8039 
BDIB 
BDSC 
BDIE 
BD41 
BDa3 
BD45 
BD47 
BD49 
BD4A 
BDAC 
BDAE 
BD50 
8052 
BD55 
8057 
BDS? 
BDSB 
BDSE 
BD60 
BD62 
BD64 
BD6& 
BD67 


BD&A 


a0 
a2 
94 
ca 
10 
0 
1’ 
D0 
B6 
Fo 
c9 
Do 
20 
0 
c9 
FO 
c9 
Do 
29 
90 
1’ 
Fo 
c9 
Fo 
c9 
FO 
c® 
Fo 
00 
66 
20 
90 
24 
10 
a9 
38 
(+) 
°C 
66 
24 
50 
AS 
38 
ES 
85 
Fo 
10 
20 
Eb 
Do 
Fo 
20 
c6 
Do 
AS 
30 
60 
sc 


48 


90 
oA 
5D 


F8 
OF 
2D 
04 
67 
04 
2B 
05 
73 00 
sd 
2E 
ZE 
45 
30 
73.00 
17 
AB 
dE 
2D 
0A 
AA 
08 
2B 
08 
07 
60 
73.00 
sc 
60 
()3 
00 


E13 
49 BD 
EZ 
Sf 
c3 
E13 


sp 
SE 
12 
09 
FE BA 
Se 
F3 
07 
E2 BA 
SE 
F9 
67 
[JN 


Ba BF 


LDY 
LDX 
sTY 
DEX 
BPL 
BCC 
cH 

BNE 
sTı 
BEO 
cnP 
BNE 
JSR 
BCC 
cnP 
BEO 
CHPp 
BNE 
J5R 
BCC 
CcrP 
BEO 
cnP 
BEE 
cnP 
BEO 
CHP 
BED 
BNE 
ROR 
JSR 
BCC 
BIT 
BPL 
LDA 
SEC 
SBC 
JRP 
ROR 
BIT 
Bvc 
LDA 
SEC 
SBC 
STA 
BEQ 
BPL 
JSR 
INC 
BNE 
BEQ 
JSR 
DEC 
aNE 
LDA 
BMI 
RTS 
JnP 


PHA 


#300 
#80A 
s5D,X 


sBCF7 
sBDOD 
®s7D 
#5D06 
46? 
$6EDOA 
“s2B 
sBDor 
$0073 
sBD6A 
as2E 
sBD4l 
0645 
+BD:7 
s0073 
sBDS3 
usAB 
sBDZE 
“s2D 
sBDZE 
#saA 
sBD50 
as2B 
#Bd30 
s6D55 
360 
30075 
sBD°1 
360 
sBD27 
“son 


s5£ 
sBD49 
s5f 
s5F 
sBDOA 
s5E 


50 
s5E 
sB062 
sBDSB 
sBArFE 
s5E 
38052 
#062 
sBAE2 
s5E 
#BD5B 
$67 
$BD67 


sBFB4 


Bereich $5D bıs 364 löschen 


Flag für negatıv 


. 


CHRGET nachstes Zeichen holen 


.E 


SRRBET nächstes Zeichen 


BASIC-Kode 


+ 


BASIC-Kode 


Bıt 7 setzen 


holen 


CHRGET nachstes Zeichen holen 


Bit 7 gesetzt ? 
nein 


Aufruf durch Dezimalpunkt 


FAC 


FAC / 10 


FAC 


FAC 1 10 


Vorzeichennechsel 
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FAC 


- FAC 


BDAB 24 SF BIT 
BD&D 19 02 BPL 
BDöF E6 5D INC 
BD7I 29 E2 BA JSR 
BD7& 668 PLA 
8D75 38 SEC 
BD7& E97 30 SsBC 
8078 20 7E BD JSR 
BO7B aC 0A BD JNP 
BD7E 48 PHA 
BD7F 29 0C BC JSR 
BD62 68 PLA 
BDa3 20 5C BC JSR 
BD8& AS #E LDA 
BDER 45 66 EOR 
BDAA 85 of STa 
BDSC A6 61 LDX 
BOBE 4C 6A BB JMP 
BDs1 a5 5eE LDA 
8093 c9 0A cnp 
8035 9.099 BCCc 
BD97 AI 64 LDA 
BD99 24 60 BIT 
BD9B 30 11 Bn1 
8090 ac 7E B9 JMP 
BDAO OA ASL 
BDAI 9a ASL 
BDA2 18 cLc 
BDAS 65 SE ADC 
BDAS 9A ASL 
BDA6 18 cLc 
BDA? AO 00 LDY 
8099 71 7A ADC 
BDAB 38 sec 
BDAC E9 30 Spt 
BDAE 85 5£ 5TA 
BDBO 4C 39 BD IMP 
[KAETETTETIEERZEUTETIIEETEE TE 
8083 9B 3E BC IF FD 
BDBB 9E 6E 6B 27 FD 
BDBD 9E 6E 6B 28 00 
BERSERRRERTERBERHRSRT RAR ERU FE 
BDC2 AI 7 LdA 
BDC4 ao AS LDY 
BOC6& 20 DA BD JSR 
BDC9 AS 3A LDA 
BDCB A6 39 LDX 
LAELZERZTZEZIEETFETFEITIIT ET ZZ 
BDCD 85 62 sTa 
BDCF 86 63 STX 
BDDI A2 90 LDx 
BDDJ3 38 SEC 
BDD4 20 49 BC JSR 
BDD7 20 DF BD JSR 
BDDA 4C IE AB JInP 


s5f 
sBD71 
45D 
sBAE2 


4830 
sBD7E 
sBDOoA 


sBcoc 


sBC3c 
s6E 
$6b6 
sbF 
s61 
sBB6A 
sse 
“50A 
sBDAO 
0864 
#69 
sBDAE 
sB97E 


A 
A 


s5E 
A 


2,00 
7A ,Y 


#30 
s5E 
sBD 50 


LEZAN 
usAJ 
$8DDA 
s3A 
[2%/ 


#62 
963 
0890 


sBC4? 
#BDDF 
#ABIE 


FAC = FAC * 10 


"0° abzıehen gıbt hex« 
addiert nachste Stelle zu FAC 
nächstes Zeıchen 


FAC nach ARG 


FAC = FAC + AR6 
Aufruf durch 'E' 


"overflom error 


9: 
nächstes Zeıchen holen 


Konstanten für Fließkoana nach ASCII 
99999999.9 

999999999 

1E9 


Ausgabe der Zeilennummer beı Fehlermeldung 


Zeıger auf in’ 
String ausgeben 


laufende Zeılennunaer holen 

positive Integerzahl in A/X ausgeben 
tur Uawandlung in FAC schreiben 
Integer nach Flıeßkoana wandeln 


FAC nach ASCII wandeln 
String ausgeben 
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aaantseaTUEeRBSeTer Bene rasannt FAC nach ASCII-Fornat wandeln und nach $100 
BDDD AO 01 LDY 9801 


BDDF A® 20 LDA 0820 “ " Leerzeichen für postive Zahl 
8DEL 24 56 BIT #65 Vorzeichen 

BDES 10 02 BPL sBDE? positiv ? 

BDES AS 2D LDA #82D "=" Minuszeichen fur negatıve Zahl 


BDE7 997 FF 00 STA SOOFF,Y ın Pufterbereich schreiben 
BDER 85 66 STA 866 


BDEC 87 sTy #71 

BDEE CB INY 

BDEF A9 30 LDA @530 ‚0 

BOFI Ab bi LDx #61 Exponent 

BDFS DO 03 BNE &BDF8 Zahl nıcht null ? 

BDFS 4C 02 BF JBP SBFO4 ja, tertıg 

BOFB A900 LDA 8600 

BDFA £0 80 CPx 8580 FAC aıt I vergleichen 
BDFE FO 02 BEO sBE0Q 

BDFE BO 09 BCS 8BE0F FAC größer I 

BEOO AI BD LDA asBD 

BEO2 AO BD LDY ®sBD leıger auf Konstante IE9 
BEOa 20 2B BA JSR sBA28 Konstante (Zeıger A/Y) ® FAC 
BEOT A9F7 LDA 8$F7 

BEO® 85 5D S5TAa s5D 

BEOB AI BB LDA Ps88 

BEOD AO BD LDY asBD leıger auf Konstante 999999999 
BEOF 20 5B BC JSR #BC5B Vergleich Konstante (leiger A/Y) mıt FAL 
BE12 FO IE BEO $BES2 gleich 

BEI4 10 12 BPL $BE2B 

BEi6 49 B3 LDA 0sB3 

BEIBO AO BD LDY #850 Zeiger auf Konstante 99999999,9 
BEIA 20 5B BC JSR $BC5B Vergleich Konstante (Zeiger A/Y) mit FAC 
BEiD FO 02 BEI #BE21 

BEIF 10 0E BPL sBE2F 

BE21 20 E2 BA JSR sRAE2 FAC = Fac # 10 

BE24_ C6 SD DEC #5D 

BE22 DO EE BNE SBE1& 

BEZB 20 FE BA JSR SBAFE FAC = FAC / 10 

BE2ZB Es 5D INC 6#5D 

BE2D Do dc BNE $BEOB 

BEZF 20 49 68 JSR 88849 FAC = FAC + .5 , runden 
BEI2 20 9B BC JSR $BC9B FAC nach Integer 

BEIS a2 01 LDr #801 

BEIT AS SD LDA 85D 

BEI? 18 cıc 

BESA 69 0A ADC 980A 

BESC 30 09 BMI sBE47 Betrag kleıner 0.1 ? 

BESE C9 08 CH? 9808 

BE4O BO 0& 9C5 #BE48 Betrag größer 1E9 ? 

BE42 69 FF ADC 8sfrf 

BE44 AA TAX 

BEAS AI 02 LDA 0802 

BE47 38 SEC 

BEAB EI 02 SBC 4802 

BE4A 85 SE STA s5E 

BESC 686 5D STX s5D 

BESE BA TXA 

BEAF FO 02 BEQ $BESS 

BESi ı0 13 BPL $BE&66 

BESS as 71 LDY #71 

BES5S A? 2ZE LDA #s2E 
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BES? 
BEI 
BESB 
BESC 
BESE 
BEON 
BE&I 
BE64 
BEö& 
BE68 
BEsA 
BESC 
BEsD 
BE7O 
BE?7?2 
BE7S 
BE77 
BE79 
BE7B 
BETE 
BEBO 
BEBZ 
BES 
Bc87 
BEBB 
BEBA 
BEBC 
BEBE 
BE9Ü 
BE9IL 
BEIS 
BE9IS 
BEI? 
BEISF 
BEIA 
BE9IB 
BESC 
BEID 
BE9IF 
BEAL 
BEA2 
BEAS 
BEAS 
BEAB 
BEAA 
BEAC 
BEAE 
BEAF 
BER2 
BEB4 
BEBs 
BEB7 
BEBF 
BEBB 
BEBC 
BEBE 
BECO 
BEC2 
BEC4 
BEC& 


cB 
CL) 
BA 
Fo 
As 
ce 
” 
CH) 
an 
A2 
AS 
18 
79 
85 
AS 
79 
85 
AS 
79 
85 
AS 
73 
85 
€8 
:h} 
10 
39 
30 
BA 
7 
49 
69 
69 
cB 
ce 
ce 
CB 
84 
na 
ce 
AA 
29 
” 
Cö 
00 
a9 
c8 
[L) 
84 
Aa 
8A 
49 
29 
AA 
co 
FO 
co 
DO 
na 
89 


FF 00 


FF 00 


19 BF 


18 BF 


17 BF 


16 BF 


FF 00 


INY 
STA 
TXA 
BEO 
LDA 
INY 
STA 
STtY 
LDY 
LDX 
LDA 
cLc 
ADC 
STA 
LDA 
ADC 
STa 
LDA 
ADC 
STA 
LDa 
ADC 
STa 
INK 
3C5 
BPL 
dml 
Bi 
TXA 
BCC 
EOR 
abc 
ADC 
INY 
INY 
INY 
INY 
sTY 
LDVY 
INY 
TAX 
AND 
STA 
DEC 
BNE 
LDA 
INY 
STA 
str 
LDY 
TXA 
EOR 
AND 
TAX 
CPY 
BEC 
CPY 
BNE 
LDY 
LDA 


SOOFF,Y 


sBEsA 
“850 


SOOFF,Y 
71 
[02 
“80 
#65 


sBFI9,Y 
865 
464 
sBF18,Y 
54 
863 
sBF17,Y 
463 
#62 
KBFL&,Y 
sb2 


sBEBE 
4BESA 
sBEIO 
sBESA 


+BE97 
Kerr 
u.0A 
us2F 


247 
[r31 


Bs7F 
KOOFF ,Y 
#sD 
*BEB2 
»s2E 


S00FF,Y 
sn 
947 


usrf 
4880 


24 
sBECA 
usIc 
$BE6A 
sn 
800FF,Y 


Berechnung der einzelnen Ziffern 


Tabellenende beı FAC-Uawandlung 


Tabellenende bei Ti$-Berechnung 
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BEL® 
BECH 
BECC 
BECE 
BEDO 
BED2 
BED} 
BEDS 
BED? 
BED® 
BEDE 
BEDD 
BEDE 
BEEO 
BEEI 

BEES 
BEE& 
BEEB 
BEEB 
BEEC 
BEEE 
BEEF 
BEFO 
BEF2 
BEF= 
BEF& 
BEFS 
BEFA 
BEFD 
BEFF 
BFO2 
BFO4 
BFO7 
BFOF 
BFOC 
BFOE 
BF10 


30 
FB 
2E 
Gı 


ze 
SE 
2E 
03 
00 


E13 


2D 
61 
45 
6 


2F 


OL 
FE 
5A 
0: 


02 
00 
{X} 
[j:) 
FF 
00 
00 
oo 
0 


DZ} 


01 


01 


091 


[21 


66 


01 


Der 
cHP 
13] 
CnF 
BES 
InY 
LDA 
LD« 
BED 
BPL 
L5A 
SEC 
Söc 
TAX 
LDe 
sta 
LA 
STA 
TIA 
LCä 
SEC 
In! 
SEC 
565 
AaDbc 
sTa 
TEA 
Sin 
LDA 
5TA 
BED 
STa 
LDA 
STA 
LDA 
LdY 
RTS 


350 
SBECo 
us2E 
sbED! 


2326 
s5e 
#BF67 
s5EE) 
2500 


sSsE 


“s2D 
scl9iar 
535 
3C100,Y 


use 


LER 
2.1232 
555 
sv103.r 


soro2, 
8500 
s0104,Y 
sBFOoL 
SOOFF.Y 
8506 
#0100,Y 
2500 
"so 


LEKEITEILEZEZUTEELZEEITEI ENT 


80 00 06 00 00 


BFIl 


ALLETZETERTEITEETETTEITERTETTT 


BFib FA OR IF 00 
BFIA 00 98 96 86 
BFIE FF FO BD CO 
BF22 00 01 86 40 
BF25 FF FF DB FO 
BF2A 00 00 07 EB 
BF2E FF FF FF SC 
BF32 00 00 00 0A 
BF36 FF FF FF OFF 
KERZERZEZEZZELZEIZEZ ZEILE DZ ZZ 
BFSA_ FF DF 0A 80 
BF3E 00 03 4B CO 
BFa2 FF FF 73 60 
BFA& 00 00 0E 10 
BFaA EF FF FD AB 
BFAE 00 00 00 IC 


0 
+ 
[3 
ee 
16 
9-1 


Putrer aıt 30 abschließen 


Futter aıt 30 abschlıefen 


leıger auf Puffer 8100 


rFonstante 0.5 fur SOR-Funktion 


Konstanten fur Gleıtkomaa nach ASCII 
32-Bıt Binärzahlen mıt Vorzeichen 

-100 000 000 
10 090 306 
-1.000 090 
100 000 
-10 000 
1 000 
- 100 
19 
-L 


Konstanten #ur Uawandluna TI nach TI$ 
-2 160 000 
216 900 
-36 000 
3 609 
- 600 
60 
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BFS2 EC 


BFSS AA sc. 


EFTG ... An 
LEZETETETENTEETITETEEETTRTT BASIC-Funrtion SOR 

BF7I 20 0C EC JSR SBCOC FAC runden und nach ARG 
BF?& A911 LDA asıl 

BF76 AG EF iDr asBrF Zeıger aus konstante 9.5 
KL ELTETEIIERETELETTTEREEEN Potenzierung FAC = AR6 hoch Konstante !A/YI 
BF7&E 20 A2 BE JSR $8BAZ Konstante nacn FAL 
LAEZZEZZETZEIZZEEZZ ER ZZ ET I IE Potenzierung FAC = ARKG noch FAC 
BF7B FO 70 BEO iBFED 

Br7D A5 69 LDA 869 Exponent ARG = Basıs 
ERTF Do 03 BNE $BF83 nıcht rull *? 

BFoI :c F9 88 JmF sBarF9 terzıg 

BFES a2 3E LDa ns4E 

BF8o An 90 LDY #800 Zeiger aut Kılfsasıı 
BFBS 20 D4 BB JSR 56BD3 FAC nach Hılfsasku 

BFEB A5 6sE LDA $6E Exponent FAC = Fotenzesnorent 
EF8D 10 ÖF BPL $BF9E kleıner eıns ? 

BFBF 20 CC BC JSR sBECC INT-Funktion 

Er9? RS 4E LDA »rädE 

BF93 ko 00 LDY #300 Zeiger aut Hılfsabku 
BFsö 20 5B BC JSR TBCSB aıt FAC vergleichen 
bFS9 LO 07 BNE $BF9IE 

BF9E 78 Tra 

EF9IC As 17 LDdY 307 

BFSE 206 FE BB JSR IBBFE ARG nacn FAC 

BFAI 8 IYA 

BFAZ 48 PHA 

BFA3 29 EA B9 JSR $BIEA LO6-Funrticn 

BFAb #7 ae LDA ®s4E 

BFAB An 00 LDY #800 Zeıger auf Kılfsakku 
BFAA 20 28 BA JSR #BA28 aıt FAC aultıplızıeren 
BFAD 2) ED BF JSR sBFED EXP-Funktion 

BFBO 68 PLA 

BFB1 4A LSR A 

BFE? 90 0A BCC sörBE 

LELZSEZERKZTEESTZSTT ERZEUGT Vorzeichenwechsel 

BFBA AS 6i LDA sol Exponent 

BFB& FO 06 BEQ #BFBE Zahl gleıch null, dann fertıg 
BFBB AS 66 LDA #66 

BFBA 49 FF EOR WEFF Vorzeichen ınvertieren 
BFBC BS 46 STA $66 

BFBE 60 RTS 

[LZEIKTTITTETUIEIEIERTTTIE N) Konstanten fur Eıp 
BFBF 81 38 AA 3b 29 1.44269504 = 1/L0612) 
BFCA 07 7 = Polynoagrad, 8 Koeffızıenten 
BFCS 7ı 34 38 JE 56 2.14907537E-5 

BFCA 74 16 7E B3 tB 1.4352314E-4 

BFCF 77 2F EE ES 83 1.34226348E-3 

BFD4 TA ıD 84 ıC 2A 9.651401 1701E-J 

BFDI 7C 63 59 58 0A ‚0555051289 

BFDE 7E 75 FD E7 Ch «240226385 

BFES 80 3ı 72 18 10 »593147186 
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BFEB 


81 00 00 00 00 


[TEE ZERIT ZZ TUI EIS SE SEI 


LE 2.12 
asbr 
s8A20 
470 

550 
sBrFFD 
sBC253 
sEO00 
s56 

s5COF 
sol 

BB 
KEODE 
sEAD& 
sELCctl 
s07 


2591 
sEnoR 


wen, 


#505 

169,1 
söl,« 
s61.8 
s69,X 


sEOIE 
56 
ı70 
58853 
sBFBA 
8504 
“sr 
sE059 
"00 
1212 


zBAB9 


“arantkt 
221 

72 
$BBCA 
"157 
sBA28 
sEOSD 
557 
200 
sBA2B 


sn 
#12 


BFED AI BF LDA 
E12 33 AO BF LDY 
BFFI 20 28 BA JSR 
BFFA AS 70 LDA 
BFF& 69 50 Ant 
BFF& 96.05 BCC 
BFFA 20 23 BC JSR 
BFFD 4C 00 ED JImP 
EI00 85 56 sta 
E0O02 20 OF BC JSR 
E005 AS 61 LDr 
£007 c9 88 EnP 
E009 90.03 BCC 
EO0B 20 Ds BA JSR 
EODE 20 CC BC SSR 
EON! AS 07 LLA 
E013 18 cıLc 
E014 69 Bi ADC 
E01& FO FS BED 
EO1B 38 SEC 
E019 E9 91 Sec 
EOlb 48 PHA 
EOIC A2 05 UDx 
EOIE BS 69 LDA 
£020 B4 61 LDY 
E022 95 61 sTa 
£023 94 69 STY 
E02& ca DEX 
E027 19 #5 BPL 
E029 AS 56 LDA 
£02B 85 70 STA 
EO2D 20 53 B8 JSK 
€050 20 B& BF JSF 
E033 as 7a LDA 
E035 AO BF iDY 
E£037 20 39 EO JSR 
EOSA A® 00 LDA 
EOSC BS öF STA 
EOSE 68 PLA 
EOSF 20 B9 BA JSR 
E042 60 RIS 
ÄLELEEREIRTESERETTRERT 
E04 85 71 5TA 
E045 84 72 sTY 
E037 20 CA 88 JSR 
EO4A a9 57 LbA 
EOSC 20 28 BA JSR 
EO4F 20 5D EO JSR 
E052 A? 57 LDA 
E054 AO 00 LDY 
E056 46 28 BA JnP 
LEIZEZZTTETRITEIZEIEEEILEN ZEN 
E059 85 7ı sTa 
EOSB 84 72 SsTY 
EoSD 20 C7 BB JSR 


$BBC7 


ı 
BASIC-Funktion EXP 


Zeıger aut Konstante L’LOGL?) 
art FAC aultıplirıeren 


Mantısse von FAL um eıns erhohen 


FrC nach ARG bringen 
Exponent 
Zahl größer 128 ? 


talls oosıtıv 'overflow' 
INTEGER-Funktion 


gleıch 127 ? 


FAC und ARG vertauschen 


ARG - FAC 
Vorzeıchenwechsel 


Zeıger auf Polynoakoeffızıenten 
Polynom berechnen 


Exponenten von FAC und ARG addieren 


Polynoaberechnung yzalsx+a2ıx“Itajıax"ätr... 


leıger auf Polynonkoetfızienten 
FAC nach Akkus? dringen 

leıger auf Akku ey 

FAC # Akkus) (quadrieren) 
Folynoaberechnung 


Zeiger aut Akuuhs 
FAC = FAC a Akkusy 


Polynonberechnung y=zaltalıxrazzut2+ajuu"itı.. 


Zeiger auf Polynoagrad 
FAC nach Akku#4 bringen 


214 


£060 
E062 
E054 
E066 
E067 
E068 
EOsA 
EOsC 
EOLE 
EO7G 
E073 
E075 
&077 
E078 
E07A 
EO7C 
£07D 
EOTF 
E0Bt 
EOB& 
E06 
E088 
EOBA 
EOBC 


Bi 
85 
Aa 
c8 
98 
Do 
E& 
85 
LE) 
20 
As 
As 
18 
69 
90 
ce 
85 
83 
20 
a9 
AO 
C6 
00 
60 


anendannn 


EOBD 
E992 


98 
68 


LEE ZEIGT 


E097 
EOFA 
EOIT 
EO9E 
EOAI 
EOAZ 
EOAS 
EOA7 
E0A9I 
EOAB 
EOAC 
EOAE 
EOBO 
E0B2 
£E084 
EOB& 
EOB7 
EOB9I 
EOBB 
EOBE 
E0CO 
EOC2 
EOCS 
EOC7 
£0C9 
EOCC 
EOCE 
E0DO 
E0D3 
E0D5 


20 
MU 
00 
20 
896 
84 
AN 
B1 
85 
c8 
Bl 
85 
AO 
Bl 
85 
cB 
B1 
85 
sc 
A9 
ao 
20 
AI 
Ao 
20 
47 
An 
20 
Ab 
AS 


7 
#7 
7ı 


02 
72 
7ı 
72 
28 
” 
72 


05 
b2| 


nı 
72 
67 
sc 
99 
67 
E4 


[EEEIZEZEITERT ZEIT IE 


BA 


B8 


LDA 
sTa 
LDY 
INY 
TYyA 
BRE 
Inc 
STA 
LDdr 
JSR 
LDA 
LDv 
cLc 
ADc 
BCC 
INY 
STA 
SsTy 
JSR 
LDA 
LDY 
DEC 
BNE 
RTS 


35 44 7A 00 


28 


BEREIRBEESRREETERREREN 


2B 
37 
29 
F3 
22 
25 
n4 
22 
62 


22 
64 
08 
22 
63 


81 


BC 


FF 


BA 


BB 


36 90 


JSR 
BmI 
BNE 
JSR 
STX 
sTY 
LDdy 
LDA 
STa 
INY 
LDA 
STa 
LDY 
LDA 
sTa 
INY 
LDA 
STa 
JMP 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDX 
LDA 


711,Y 
667 
1 


sEOsC 
s72 
[221 
#72 
5BA28 
sm 
$72 


LEDE) 
$5E07D 


s71 
#72 
sB867 
s5C 
"00 
8167 
sE07n 


s8C2B 
sEOD3 
KEOBE 
seFF3 
s22 

23 
004 
1822) ,Y 
662 


1822) ,Y 
564 
2808 
1522). 
363 


1822) ,Y 
#65 
sE0ES 
as8B 
800 
$BBA2 
ns80 
I5E0 
sBA28 
0692 
sE0 
5B867 
#65 
$62 


Folvnongrad 
als Zanler 


Zeiger erhöhen, zeıgt dann 
auf ersten Koeftızıenten 


FAC = FAC # Konstante ıleıger A/Y) 


leıger un 5 erhohen - nächste Zahl 


FAC = FaC + Konstante (leıger A/Y 


leıger auf Askusd 
Zahler erniedrigen 


Konstanten fur RND 
11879546 

3.92767774E-4 
BASIC-Funktion AND 
Vorzeicnen holen 
negativ ? 
Basıs-Adresse CIA holen 


als lZeıger speichern 


Tiaer A low 
Tiaer A high 
TOD 1/10 sec 


T0D sec 


leıger auf letzten RND-Wert 
nach FAC holen 


leıger auf Konstante 
FAC = FAC = Konstante 


leiger auf Konstante 
FAC = FAC + Konstante 
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EOD? 88 65 STA 365 
E08 86 87 ST se 
EGDE Ro 6) LDX 367 
EoObD AS 64 LDA $68 
EuDF 85 65 STA $63 
EOEI e6 03 STI $o3 
EOEI AS DO LDA 0800 
EOES 85 00 STA 866 
E0E7 as 61 LDA $6l 
ECES 85 °0 STÄa ı70 
EOER A9 80 LDA a560 
EDED 95 01 STa Köl 
EVER 20 07 BB JSR 58807 
EoF? AI aB LDX ns8B 
EOFA au 90 LDv 0500 
EOFb sc D3 EB InPp sE3D> 


LILZZERZSETZEITEIEIEZ SEI EZZ EEE 


EOFS c9 Fo CHF sro 
EOFB DI 97 BNE $EIOS 
EOFD 8% 38 STY 856 
EOFF 86 37 stı $57 
E1OL sc 653 26 IMF $A66, 
Eis aA TAX 

E195 D0 02 BNE 3E10° 
E107 A2 IE LDX esıE 
E109 36 37 74 JnF A337 


LIETLETTEEZZEEZEEIE ZIERT 


EIOC 20 DI FF I5& #FFD2 
EIOF 80 EB 865 sEUF9 
eitt 6% RIS 


LEXEITITTIIETEZSETEITEIT EIN 


E12 20 CF FF JSR SFFCF 
E115 BO E2 BCS SEOF9 
Ell7 60 RTS 


LESER IE ZEZZERZZ ZZ ET ZEIT 


Eli 20 AD £4 JSR sE4AL 
E1IB 80 DC BES SEOFS 
Ei1D 00 RTS 


LEKERZEZEELZERENZEIZELZZ EZ 


EIIE 20 C& FF JSR sFFC6 
eızı BO D& BCS sEOFg 
E123 60 RTS 
IKEITZERZITIEITTEITITERETE ET 
E124 20 EA FF JSR SFFE4 
E127 80 DO BCS sEOFF 
E129 60 RTS 
ÄRELEITERUETTELZIEEEITERTITE ST 
E12A 20 8A AD JSR $ADBA 
E12D 20 F7 57 JSR $B7F7 
E1SO A9 Ei LDA 88E1 
E132 48 PHA 

E15? AI 4b LDA 0846 
E135 48 PHA 


Stellen ıa FAC vertauschen 


Exponent 
FAC lınkspundıg machen 


Zeıger auf letzten RND-Wert 
FAC runden und speichern 


Fenlerauswertung nacn 1/0-Routınen 
RS 232 OPEN oder CLOSE ? 

nein 

BASIC-RAM Ende neu serzen 


ung zum CLR-Betehl 
Fehlernuaner nach X 
nıcht Kull ° 

sonst Nummer fur 'brear 
Fehleraeldung ausgepen 


BASIC BSOUT 
eın Zeıchen ausgeben 
Fehler ? 


BASIC BASIN 
eın leicnen holen 
Fehler ? 


BASIC CKOUT 
Ausgabegerät setzen 
Fehler ? 


BASIC CHKIN 
Eıngabegerat setzen 
Fehler ? 


BASIC GETIN 
ein leichen holen 
Fehler ? 


SYS-Besehl 
FRANUM, nunerischen Ausdruck holen 
in Adressforsat wandlen, nach 814/815 


Rucksprungadresse auf Stack 
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E16 AD OF 03  LDA KOIOF 
E13? 48 PHA 

EISA AD OC 02 LDA 8030C 
E13D AE 0D 05 LDX 60300 
E10  AC 0E 03 LDY 8030E 
E143 28 PLP 

E14 6C 14 00  JMP (80014) 
Eis7 08 PHP 

Eidd BD OC 03 STA 8030C 
Ei4B BE 0D D3 STK 80700 
EIdE BC 0E 03 STY $0T0E 
EiSt 68 PLA 

E152  8D OF 03 STA s030F 
EIS5S 60 RTS 
LAZZEELZEKZEZ ES ZZZELST ZEITEN 
EISö 20 D4 EI JSR SELD4 
E159 Ab 20 LDx 82D 
EISB aa 2E LDY s2E 
EISD A928 LOA 4528 
EISF 20 DB FF JSR $FFDB 
Ei62 BO 95 BCS SEOF® 
El64 60 RTS 
LEEEKENZZELEEZ ZZ EEE ZET EUR ZETZ IT 
Ei65  AF HI LDA ns01 
Ei67  2C .BYTE s2C 
ÄKBERZZZSZEEZZZZSZ DZ EZ EZ U ZU EIG 
E188 AI 00 LDA 4800 
Elba 85 0A STA $0A 
El6C 20 04 EI JSR $EIDA 
El6F AS 0A LDA $0A 
EeiTtt A6 2B LDX #28 
E173 Aa 2C LDY s2C 
E17S 20 05 FF JSR #FFDS 
Eı78 BO 37 BCS sELDI 
EI7A AS 0A LDA 804 
EiI7C FO 17 BEQ sE195 
EI?TE A21C LDR Rsıc 
EiBO 20 B7 FF JSR #FFB7 
E183 29 10 AND #810 
E185 00 17 BNE SEIFE 
E187 AS 7A LDA 674 
E189 C9 02 CHP 0802 
EiBB FO 07 BEO $E194 
EIBD AP 64 LDA 0864 
EISF AD A3 LDY a6nJ 
E191  AC IE AB JMP SABIE 
Ei94 60 ATS 

E195 20 87 FF JSR $FFB? 
Ei98 29 BF AND a#BF 
EI9A FO 05 BEQ $ELAI 
EIISC A2 ıD LDX n#1D 
EISE AC 37 Aa JMP 9A437 
Eial AS 7B LDA #78 
EIAS  C9 02 CHP #802 
Eıas DO 0E BNE $E1BS 
ElA7T_B6 20 STK #20 
EiAP 04 2E SsTY s2E 


Status, 


Akku, 

I-Register und 
Y-Regıster übergeben 
Status setzen 
Routine aufrufen 
Status speichern 
Akku, 

X-Regıster, 
Y-Register und 


Status wieder speichern 
SAVE-Befehl 


Paraaeter (Filenasen, Prım. und Sek. 
Endadresse gleich BAS!C-Prograsm Ende 


Adresse) 


Startadresse gleıch Zeiger auf BASIC Anfang 
Save-Rcutine 
Fehler ? 


VERIFY-Betenl 
Verity-Flag 


LOAD-Befehl 

Load-Flag 

speichern 

Parameter holen 

Flag 

Startadresse gleich BASIC-Start 


Load-Routine 
Fehler ? 
Load/Verify - Flag 


O44set für "verify error 
Status holen 

Fehler-Bit isolieren 
Statusbit gesetzt, dann Fehler 


Test auf Direkt-Modus 
ja, dann fertig 
Zeiger auf 'ok’ 


ausgeben 


Status holen 

EOF-Bit löschen 

keın Fehler 

Otfset fur "load error 
Fehleraeldung ausgeben 


Dırekt-Modus testen 


nein, dann weiter 
Endadresse gleich Prograsmaende 
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EIAB A9 76 LDA 8375 
EiAD AO AJ LDY a8A5 
EIAF 20 1E AB JSR SABIE 
£1B2 sc 2A AS JMP sAS2A 
EiBS 20 8E Ad JSR SAGBE 
E1BB 20 33 AS JSR sAS3I 
Eı1BB a 77 a6 JRP $A577 


LELEELTERTZEIZEITI TIERE TTS 


EIBE 20 19 E2 JSR sE219 
EiCl 20 CO FF JSR SFFCO 
EICA 80 08 BCS sE1DI 
EiICö 60 RTS 


ÄKILERZZEREZEZEZZZZZZEIE SITZ 


EIC7 20 19 E2 JSR 6E219 


EICA AS 49 LDA 549 
EICC 20 C3 FF JSR SFFCS 
EICE 90 C5 BCC $E194 


EiIDI 4C F9 EO JMP SEOFYS 


KESIEEIEZIESFEITERTEER TIERE 


EID4 A9 00 LDA 2500 
E1D6 20 BD FF JSR $F5BD 
E1D9 A2 01 LDr 0501 
E1DB AO 00 LDY »s00 


EiDD 20 BA FF JSR SFFBA 
EIEO 20 08 EZ JSR #E206 
ElIES 20 57 E2 JSR $E257 
EIE& 20 06 E2 JSR 8E20& 
EIEI 20 00 E2 JSR $£200 
EIEC AO 00 LDY #800 

EIEE 86 49 STı 449 

EIFO 20 BA FF JSR SFFBA 
EtiF3 20 06 E2 JSRK $E206 
EIF6 20 00 E2  JSR SE200 


EIF® 8A ira 

EIFA AB TAY 

EIFB Ab 49 LDX 949 
EIFD sC BA FF JnP sFFBA 


LILETERIEEITTURTTIERT STIER 
E200 20 0£ E2 JSR 6EZOE 
E203 4C 8E 67 JAP s8797E 


ÄEZSEZZULITZENZEZEZTIZE TEEN 


£206 20 79 00 JSR 600797 
E209 Do 02 BNE $E20D 
E20B &8 PLA 
E20C 68 PLA 
E20D 60 RTS 


[AELEEZELEZESEE ZELTE EZ EZ ZZ 


E2OE 20 FD AE JSR sSAEFD 
E211 20 79 00 JSR 80079 
E214 Do F7 BNE #E20D 
E216 4c 08 Af JMP sAFOB 


ALLER TESZZETTZEZZEIESUZZZ ZZ DEZ 


Zeıger auf "ready 

String ausgeben 

Prograanzeiien neu bınden, CLR 
CHRGET-Zeıger auf Progranmnstart 
Progranazeılen neu bınden 
RESTORE, BASIC ınıtıalısıeren 


BASIC-Befenl OFEN 
Parapeter holen 
OPEN-Routıine 
Fehler ? 


BASIC-Befen]l CLOSE 
Paraaeter holen 
Filenunaer 
CLOSE-Routıne 

kein Fehler, RTS 

zur Fehlerauswertung 


Parameter #ur LOAD und SAVE holen 
Default für Lange des Fılenamen 
Filenaaenparaaeter setzen 
Default fur Geratenumner 

I Sekundaradresse 
Fıleparaneter setzen 
weitere Zeichen ? 
Filenasen holen 
weitere Zeichen ? 
Paraaeter holen 


Fileparaaeter setzen 
weitere Zeichen ? 
Paraneter holen 


Fileparaseter setren 


pruft auf Koaaa und neitere Zeichen 
holt Byte-Nert nach X 


prüft auf weitere Zeichen 

CHR6OT letztes Zeichen 

weiteres leichen, dann Ruckkehr 

sonst Ruckbehr zur ubergeordneten Routine 


prutt auf Koana 

CHRGOT letztes Zeichen holen 
weitere Zeichen, dann Rückkkehr 
SYNTAX ERROR 


Paraäaseter #ür DPEN holen 
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E219 AI 00 LDA #500 
E2tB 20 BD FF JSR sFFBL 
E2IE 20 11 E2 JSR FEZII 
E221 20 9E B? JSR $B79E 


€223 B6 49 STr 349 

E226 aA TAA 

E227 A2 091 LDI u501 
€229 AO 00 LDY 0500 


E22B 20 BA FF JSR $FFBA 
E2ZE 20 06 E2 JSR $E206 
E231 26 09 E2 JSR $E200 


£E234 86 4A STX 85A 
E25& a9 00 LDY #800 
E238 AS 49 LDA 839 
E23A E0 05 CPX 0503 
E23C 990 BCC sE23F 
EZIE 88 DEY 


E25F 20 BA FF JSR $FFBA 
E232 20 06 E2 JSR $E206 
E245 20 09 E2 JSR $E200 


E248 BA TIA 
E249 AB TAY 
E24A Ab 4A LDX $4A 
E2AC a5 49 LDA 5497 


E24E 29 BA FF JSR #FFBA 
E251 20 06 EZ JSR $E206 
E254 20 VE E2 JSR $E2OE 
E257 29 9E AD JSR $ADIE 
E2SA 20 A3 B6 JSR #B6AS3 
E25D A& 22 LDx #22 

E2SF A323 LDY #23 

€261 ac BD FF JNP $FFBD 


ALIESZZEZEZEEERZEZZZT ZZ ZZ ZIG 


E284 AI EO LDA 2#E0 
E266 AO E2 LDY asE2 
E258 20 67 BB JSR 38867 


LLIERTERTERZESITTETEIIETERETT 
E26B 20 OC BC JSR $BCOC 


E26E A9 ES LDA @6E5 
E270 AD E2 LDY ssE2 
E272 A& 6E LDX 86E 


E274 20 07 BB JSR sBB07 
E277 20 0C BC JSR #BCOC 
E27A 20 CC BC JSR $BLCC 


E27D A? 00 LDA 84300 
E27F 85 öF STA #6F 
£281 20 53 B8 JSR 68853 
&284 AI EA LDA asEA 
E286 ao E2 LDY a$E2 
£E2886 20 50 BB JSR #8850 
E28B AS 66 LDA 866 
28D 48 PHA 
E28E 10 0D BPL #E29D 
E290 20 49 BB JSR #B849 
E293 AS 66 LDA 666 
£295 30 09 BMI $E2AO 
E297 AS ı2 LDA 812 
E2997 49 FF EOR NsFF 


Detault fur Lange des Fılenanens 
Fılenasenparameter setzen 
weitere Zeichen ? 

holt Iogısche Fılenumner nach X 


Default #ur Berateadresse 

r Sekundaradresse 
Fıleparaneter setzen 
weitere leichen ? 
holt Gerateadresse 


Fıleparaneter setzen 
weitere Zeichen ? 
holt Sekundäradresse 


Fileparapeter setzen 

weitere leıchen ? 

prüft auf Koasa 

FRNEVL Ausdruck holen 

holt Stringparaaeter, FRESTR 


Adresse des Filenaaens 
Filenanenparaneter setzen 


BASIC-Funktion CDS 


Zeiger auf Konstante Pi/2 


zu FAC addieren 


gASIC-Funktion SIN 
FAC runden und nach ARG 


leiger auf Konstante Pır2 
FAC durch 24Pı dıvıdieren 
FAC runden und nach ARG 
INT - Funktion 

ARG aınus FAC 


Zeiger auf Konstante 0.25 
0.25 - FAC 


Vorzeichen au‘ Stack 
positiv ? 
FAC + 0,5 
Vorzeichen 
negatıv ? 


Flag uadrehen 
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E29B e5 !2 STAa sı2 
E2?D 20 B4 BF JSR SBFBA 
E2AO AF EA LDA ##EA 
E2A2 a0 E2 LDY »sE2 
E2a4 20 67 88 JSR 38867 
&2A7 68 PLA 

E2A8 10.03 BPL $E2AD 
E2AA 20 B4 BF JSR sBFB& 
E2AD AI EF LDA 8sEF 
E2ZAF an E2 LDY esE2 
E2BI ac 43 EO JMP $£043 


ALLELTETSTEIEITIIIEEIU TIERE IT ZT 


E2B4 20 CA 8B SR #BBCA 
€287 A9 00 LDA 8800 
£2B9 85 12 sTa sız 
E2BB 20 &B E2 JSR SE26= 
E2BE A2 4E LDX #s4E 
E2C0 AO 00 LDY #800 
E2C2 20 F&6 EO JSR sSEOF& 
E2C5 49 57 LDR #857 
E2C7 AO 00 LDY 4800 
€2c9 20 A2 BR JSR sBBA? 
E2CC a9 00 LDA 98500 
E2CE 85 66 STA #66 
€e2D0 AS 12 LDA $12 
E2D2 20 DC E2 JSR SE2DE 
E2D5 k9AE LDA BS4E 
E2D7 AO 00 LDY 9800 
E2D9 ac of BB JMP sBBOF 
E2DC 48 PHA 

E2DD AC 9D EZ  JMP SE29D 


LELEETZERIETEREIETTERREIEERTT EN 
E2EN 81 49 OF DA A2 
EZES 85 49 OF DA A2 
E2EA 7F 00 00 00 00 
EZEF 05 

E2FO 84 Eb 1A 2D IB 
E2F5 86 28 07 FB FO 
EZFA 87 99 68 89 91 
EZFF 87 23 35 DF EI 
E304 86 AS SD E7 28 
E309 83 39 OF DA A2 


VEREORTERORRRRES ERS E ER EERR 


ESOE AS 66 LDA #66 
EIOF 48 PHA 

Esıl 109.03 BPL 8ESI16 
E313 20 B4 BF JSR #BFB& 
E316 AS 61 LDA 61 
E318 4B PHA 

E319 9 81 CnP nsol 
E31B 90 07 BCC 66324 
E3ID A? BC LDA WsBC 
ESIF AO 89 LDY 26589 
E321 20 OF BB JSR sBBOF 
E324 AP SE LDA ®S3E 
E326 AO EI LDY #sE3 
€328 20 43 EO JSR sE043 


Vorzeichen wechseln 


leıger auf Konstante 0.25 
FAC = 0.25 
Vorzeichen 
sosıtıv ? 

Vorzeichen 


holen 
wechseln 


Zeıger auf Polynoskoeftızıenten 
Polynon berechnen 


BASIC-Funktion 
FAC nach Akkus) 


TAN 


Flag setzen 
SIN berechnen 


Zeıger auf Hilfsarku 
FAC nach Hılfsakku 


Zeıger auf Akkus 
Akkus3 nach FAC 


Vorzeichen 
Flag 
C05S berechnen 


Zerger auf Hilfsakku ISIN) 
durch FAC dıdviıdieren 


C0S berechnen 


Konstanten tur SIN und COS 
1.57079635 Pi/2 
6.20318531 2#Pi 
.25 
5 = Polynoagrad, 6 Koeffızıenten 
-13.3813907 
42.0077971 
-76.7041703 
81.6052237 
-41.3147021 
6.28318531 2#Pı 
BASIC-Funktion 
Vorzeichen 
retten 
positiv ? 
Vorzeıchen vertauschen 
Exponent 
retten 
lahl ait I vergleichen 
kleıner ? 


ATN 


Zeıger auf Konstante ] 


1 durch FAC dividieren (Kehrnert) 


leıger auf Polynonkoetfizıenten 
Polynos berechnen 
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ESZE 68 PLA 

E32C c9 81 cnP ns81 

ESZE 090.07 BCC SE57 

E330 a9 Eo DA sen 

ET352 An EZ LDY esE2 

EI34 20 50 880 JSR 68855 
E33 68 PLA 

€738 19.63 BPL $E733D 
E3SA ac Ba BF JMP sBFRS 
€35D 60 RTS 


PEATERTARREUTERTRTU TEEN 
ESSE OB 

ESSF 76 B5S 85 BD D3 
E724 79 1E FA Ab FS 
2340 7B BI FC BO 10 
ES4E 7C 0C IF 67 CA 
E757 TC BE SS CB CI 
E?SE 7D 14 64 709 aC 
£?5c ”D BT EA SI 74 
E367 7D 65 50 BB 7E 
E547 T7E 92 44 99 5A 
E36C 7E AC CC 91 C7 
E571 7F AA AA AA 15 
E!76 81 00 00 00 00 


[AESUE ZN EETZ EZ ZU ZEZEZZZ TEE IE 


E27B 20 CC FF JSR #FFCC 


E3TE a9 00 LDA s90 
E30 85 13 STAa s13 

382 20 TA A& JSR $ABb7A 
E85 58 cul 
E>86 A2 90 LDX 0380 
E388 6C 00 05 JMP 130300) 
E38B 8A TıA 
E38C 30 03 Bnl 8E391 


EIBE 4C 3A A4 JKP sA4SA 
E59 °C 74 A4 JInP #A474 


FESERPASBTETRTTBESERES ET BARSTA 


E394 20 55 E4 J5R #E453 
E397 20 BF ES JSR sEIBF 
EIFA 20 22 E4 JSR $E422 


£E39D AZ FB LDX nsFB 
ES9IF 9A TXS 

E3AO 09 E& BNE SEIB6 
ELZETENESTERTZEITTUTTIE IT TEIDE 
EIA2 Eb 7A INC #74 
E3A4 Do 92 BNE $E3AB 
ESA& E& 7B INC 878 
EIAB AD 60 EA LDA SEA&O 
EJAB c9 3A CHMP a83A 
ESAD BO OA BCS sESB9F 
ESAF c9 20 CHP 0520 
ESBI FO EF BEQ SEIJA2 
E3B3 38 SEC 

E3Ba EF 30 SBC 0830 
EIBb sg SEC 

£3B7 E9 09 SPC NsD0 


Erponent zuruckholen 
war Zahl kleiner I ? 


Zeıger aut Konstante Pi/2 
Pı/2 ainus FAC 

Vorzeichen holen 

positiv ? 

Vorzeichen wechslen 


Flieäkoanaronstanten fur ATN-Funktion 
Il = Polynongrad. dann 12 Koeffizienten 
-6.84793912E-04 
4.85094216E-05 
-.0161117915 
‚934209658 
-.054279135 
«07245719865 
9899019185 
„110932313 
-.142839808 
19999912 
-,333335316 
1 


BASIC AMI-Eınsprung 
CLRCH 


Eıngabegerat gleıch Tastatur 
BASIC ınitıalisieren 


Flag für keın Fehler 
BASIC Warastart Vektor 
Fehlernunser ın Akku 
kein Fehler, dann "ready. 
Fehleraeldung ausgeben 
Ready - Modus 


JnP sE38B 


BASIC Kaltstart 
BASIC-Vektoren setzen 

RAM initialısieren 
Eınschaltaeldung ausgeben 
S$tackpoınter setzen 

zua Warastart 

Kopıe der CHR6ET-Rautine 


Zeiger in BASIC-Text erhöhen 


* Leerzeichen überlesen 


Test auf Ziffer, dann [=1 
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E5B® 


50 


RTS 


TEUTERTRUESETTOUTRTITRTI TUE 


58 


LAKKZZZZEZZLESZIEIEIET EIS 


LDA 
STaA 
STA 
LDA 
LDY 
sta 
sTtY 
LDA 
LDY 
STA 
sTY 
LDA 
LDdY 
STa 
str 
LDdı 
LDA 
sTa 
dEx 
SPL 
LDA 
sta 
DA 
Sta 
5TA 
578 
LDX 
sTı 
sTı 
LDı 
si 
SEC 
JSR 
s’ı 
SIY 
SEC 
JSR 
sTt 
sıY 
SsTÄ 
sıY 
LDY 
TYA 
STa 
INC 
BNE 
INC 
RTS 


LDA 
LdY 
JSR 


us4C 
s5& 
s0310 
0328 
®sB2 
sol 
0512 
LEE 2 
23B3 
s05 
806 
“saA 
esB1 
#93 
08 
usıc 
sEIA2.X 
873,X 


sEIE? 
LE ZB 
#55 
8200 
#68 
26 
#18 
asnı 
s0ıFd 
s0ıFc 
2319 
si6 


serec 
#2B 
s2C 


sFF99 
#37 
338 
s33 
034 
8800 


(82B) ,Y 
#2B 
sE421 
s2C 


#2B 
s2C 
$A408 


ESBA 80 af C7 52 
EIEF AI AC 
EScı 8554 
ESCE ED 10 0% 
E56 A948 
EICH AO 82 
ESCca BD 11 03 
ESCD BC 12 03 
E00 a9 9 
E302 An 83 
EsDs 85 05 
ESD6 BA 06 
ESDB As AA 
ESDA AO BI 
EsUC 85 03 
ESDE 84 04 
ESEO  A2 IC 
ESE2 BD A2 EI 
EIES 95 73 
ESET Ca 
EIEß 19 FA 
EIER A903 
ESEC 85 53 
EEE A900 
EIFO 85 48 
E3r2 8513 
ESFa "88 18 
ESFr6 oo 62 01 
3F8 BE FDO 
ESFB BE FC 01 
ESFE A219 
Eaon 6 16 
E02 38 
E26 20 9C FF 
Ea06 66 2B 
E08 84 2C 
Eaoa 38 
EAOB 20 99 FF 
EA0E 86 37 
E210 84 38 
Ea12 86 33 
Eala 84 34 
Eai6 AO 00 
Eie 98 
EsI9 91 28 
EAIB Es 2B 
EsiD DO 02 
EAIF Eb 2C 
E21 60 
IKZH TEE ZLZEZ ZZ UESEZZZZEIEZ ZZ 
E422 AS 2B 
E424 na 20 
EA26 20 08 A4 
E329 9 73 


LDA 


073 


Antfangswert #ür RND-Funktion 
.611635157 


RAN fur BASIC ınıtıalısseren 

InP 

tür Funktionen 

fur USR-Funktion 

leiger auf 'ıllegal quantıty' 

als USR-Vektor speichern 

18591 

als Vektor fur Fest/Fliefkoama-Wandlung 
sB1AA 

als Vektor fur Flsef/Festkoana-Wandlung 


CHRGET-Routine 
ıns RAM kopieren 


Schrittneite fur garbage collect 


Eingabegerät gleich Tastatur 


Ieıger #ür Stringverwaltung 
RAm Start holen 

als BASIC-Start speichern 
PAM Ende holen 


als BASIC-Ende speichern 


#00 an BASIC-Start 


BASIC-Start + I 


Zeiger auf BASIC-RAM Start 
prüft auf Platz is Speicher 
leiger auf Einschaltseldung 
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EA2B 
£&2D 
E330 
E432 
E153 
E35 
£E336 
E38 
EASA 
E45D 
E<5F 
E331 
E444 


Ad 
29 
AS 


‚38 


ES 
AA 
AS 
ES 
20 
a9 
AO 
20 
4C 


38 
2C 
cD 
60 
£4 
IE 
43 


AB 


BD 


AB 
Ab 


LDdrY 
JSR 
LDA 
Sec 
Sat 
Tay 
LDA 
set 
JSR 
LDA 
LoY 
JSR 
JNP 


[212 
saßıle 


4157 


828 


38 
s2C 


sBDCD 
LET-D] 
usEA 
sABIıE 
FA644 


[ETETERETEITEUTERTITTEETIETTTT 
BB ES 83 A& 7C AS 1A A7 
€4 A7 86 AE 


E447 
EsaF 


AÄEZETZZEILZEERZZEZTZEZITZER ZEIGE 
508 
sE447,X 
30300,X 


E455 
E455 
E458 
E45B 
E35C 
EASE 


42 
BD 
DD 
ca 
10 
60 


aB 
47 
90 


F? 


E4 
03 


LDx 
LDA 
5TaA 
DEX 
BPL 
RTS 


$E455 


ELITE ZZEREITIERIE IE III ET EEE 


IKZEIZERZIZEEF EEE ZZZZEED ZI EZ 


4 


33 
33 


49 
20 


45 
4 


2a 
4 
34 
56 
oD 
4D 
20 


20 
32 


LKXZELZELTEIITTSIEIZZELET EI EN 


PHA 
JSR 
TAX 
PLA 
BCC 
TIA 
RTS 


srerc9 


sE4B6 


LEEREN Z STIER ZUZESLZEE EEE ZZ DS 
LDA 80021 
STA (FI) ,Y 


EASF 00 20 42 
E467 42 57.34 
E4uF 45 45 00 
E473 93.00 20 
€47B 2A 2A 20 
E483 44 4F 52 
E49B 42 41 53 
E49 20 2A 2A 
E49B 36 34 4B 
EaAy 53 597 33 
E4AB 00 

ESAC sc 

E4AD 48 

E4AE 20 19 FF 
E4BI AA 

E4B2 68 

E483 90 Ol 
EsBS 8A 

E4Bb 60 

£4B7 [ee 
E4D9 ren AA 
E4DA AD 21 00 
E4DD 91 FJ 
EADF 60 


RTS 


String ausgeben 
BASIC-Ende 

ainus BASIC-Start 
gleıch Bytes free 
Anzahl ausgeben 


leiger auf "basic bytes free‘ 


String ausgeben 
zun NEW-Befehl 


Tabelle der BASIC-Vektoren 


BASIC-Vektoren laden 


Betriebssysten 
Systea-Meldungen 
basıc bytes free 


tcIr}  ##0* conaodore 64 basic v2 #r0« 
(er) (cr) b4k ran systen 


BASIC-CKOUT Routine 


CKOUT Ausgsbegrät setzen 
Fehlernunner nach X 


kein Fehler ? 
Fehlernusser wieder in Akku 


Hintergrundfarbe setzen 
Farbe holen 
ins Farbraa schreiben 


223 


Tnassasaer Tresen wartet auf Conmodore-Taste 


ADC #602 
LDY 591 
InY 

BNE SE4EB 
CHP Sal 
BNE sEAE2 
RTS 


2*256/60 = 8.5 Sekunden warten 
Flag testen 


Taste gedruckt 
Zeit noch nıcht un ? 


Tınerkonstanten für RS 232 Baud Rate, PAL-Versıon 


82619 
51944 
si11aA 
$0DEB 
80770 
49605 
802D1 
30137 
sOOAE 
80069 


nnaonrsannnn 


9753 50 Baud 
6468 75 Baud 
4378 110 Baud 
3560 154.5 Baud 
318% 150 Baud 
1582 300 Raud 
756 600 Baud 
511 1200 Baud 
178 1800 Baud 
105 Za00 Baud 


aatssmmaeenasaakrrieanssrtare  Basıs-Adresse des CIAs holen 


LIr 0500 
LDY asDL 
RTS 


arena Nolt Anzahl der Zeilen und Spalten 


ESEO 69 02 
EIER Aa 
ESEa  cC8 
EaES DA 08 
ESET 05 Al 
EsE® DO FT 
E4ER 60 
IZELTEITIEITZE IE 
EdEC 19 26 
ESEE 4a 19 
EAFO dA li 
EAF2 EB 00 
Esf4 70 00 
EAr6 06 06 
Ear8 DI 02 
Eara 370 
EAFC  AE 06 
EarE 69 00 
ES00 A200 
E502 AO DC 
E5S04 60 
ES05 A228 
ES07 AO 19 
ES09 60 


LDX #176 
LDY #819 
RTS 


40 Spalten 
25 Zeılen 


alnsagesmnaasaserseahsaanaaa Cursor setzen ([C=0) / holen (C=1) 


ESOA 
ES9C 
ESOE 
E51 
E5135 
ES15 
ES17 


BO 
8 
94 
20 
Ab 
As 
60 


07 
D& 
D3 
&C 
Db 
D3 


ES 


BES sESI3 
Sir sd6 
STY 803 
JSR SESSC 
LDX s#D6 
LDY 803 
RTS 


Zeile 
Spalte 
Cursor setzen 


Kain  Dildschirm Reset 


E518 
ES1B 
ESID 
E520 
E522 
E524 
E527 
E529 
ES2C 
ES2E 
E51 
E534 
ESIb 
E539 
ES3B 
ES3E 
ES4AO 
E542 


20 
LE} 
8D 
85 
ng 
BD 
Ag 
8D 
LE} 
8D 
8D 
A9 
8D 
A? 
8D 
LE} 
85 
85 


AO 
00 
A 


ES 


02 


02 


02 


02 
02 


02 


02 


JSR SESAO 
LDA #500 

STA 50291 
STA sCF 

LDA #548 

STA $028F 
LDA ASEB 
STA 80290 
LDA 880A 
STA 80289 
STA #028C 
LDA as0E 
STA 30286 
LDA #804 


STA 3028B 


LDA Hs0C 
STA $CD 
STA scc 


Vıdeocontroller ınıtıalisieren 


Shift-Conmodore ernöglichen 
Cursor nicht in Blinkphase 


(#028F) = sEB4B 


= Zeiger auf Adressen für Tastaturdekodierung 
10 

aax. Länge des Tastaturpuffers 

Zähler tur Repeat-Geschwindigkeit 

hellblau 

Augenblickliche Farbe 


Repeat-Geschindigkeit 


Cursor Blınkzeit 
Cursor Bilnkflag 


224 


seekabkSEss Hausa sstunneree Bildschirm Ioschen 


E544 AD 88 02 LDA 80288 Speicherseite fur Bıldschıra-AANM 
E547 09 80 ORA #380 
E549 AB TAY 
ES4A a7 00 LDA 8800 
ES4C an TAX 
ES4#D 94 097 STY 809,X Adressen der Bıldschirazeılen 
ES4F 18 cLc 
ESSO 6? 28 ADC 828 406 addıeren (eıne Zeıle) 
E552 0 BCC $ESS5 
€554 ca INY 
€555 E8 ınK 
E55& EI 1A CPX 4s1A 26. alle Zeılen ? 
E558 Do FZ BNE $ES4D 
ESSA AI FF LDA NSFF 
E55 95.07 STA 809,4 
ESSE A2 18 LDx #618 24, Anzahl der Zeılen sınus I 
ES60 20 FF ES JSR $E9FF Bıldascnirmzeile loschen 
563 ca DEX 
ES64 10 FA BPL $ES6N 
AKZEEZZENZEBEZZITEEEZEZE ZEIT IT Cursor Hoae 
E566 Au 009 LDY 2500 
E568 84 03 Stv 805 Cursorspalte 
ES6A 84 D& STY 606 Cursorzeile 


snrrtsersureeeatnenenenauaene  Cursorpos. berechnen, Bildschirnzeriger setzen 


ES6C Ab D& LDx 6D6 Cursorzeıle 

ES6E 45 03 LDA 503 Cursorspalte 

E570 B&s D9 LDY 809,X 

€572 30 08 BnmI sES7C 

E574 18 cLc 

E575 69 28 ADC us28 +4) 

E577 85 D3 STA #03 

E579 cA DEX 

ESTA 10 F4 BPL 8ES70 

ES7C 85 09 LDA #D9,X NSB der Startadresse der Zeile 
ESTE 29 03 AND 88505 

E500 0D 88 92 ORA 80288 Video-Ran Fage Ihı Byte) 

ESB35 e5 02 STA #D2 

E585 BD FO EC LDA sSECFO,X LSB der Startadresse der Zeıle 
E£598 85 DI sTa sDL als Zeıger nach $D1/602 

ESBA a9 27 LDA n827 37 

£58C EB Inx 

ESRD Ba 09 LDY 6D9,X 

ESBF 39 06 BNI $E597 

E51 18 CLE 

E592 69 28 ADC 4328 +40 

E594 E8 INK 

€595 10 F& BPL $SESBD 

&597 85 D5 STA $05 

E599 60 RTS 

IERZZETTEIZERERZEIZZZELEZ EZ ZZ 

ESFA 20 AO ES JSR FESAO Videocontroller initialisieren 
ESFD 4C 66 ES JMP $ES66 Cursor Hone 
EHETTTTTZEZTZEZEEZZEL ZZ ZEZZE ZI VYideocontroller initialisieren 
ESAO A9 03 LDA #803 

ESA?2 85 9A STA #9A Ausgabe auf Bildschir® 
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E5A& 
ESAS 
ESAB 
ESAA 
ESAL 
ESBO 
essı 
ESBS 


KLETIIZEIIRIETEIEZE ZIERT RT 


00 
LL) 
2F 
BB 
FF 


F7 


Et 
cr 


LDA 
STa 
LDX 
LDA 
STA 
DEI 
BNE 
RTS 


2500 
se 
eszr 
sECBB,X 
scFFF,ı 


sESAA 


50277 
son 
sa27E.L 
802773 


sc& 
sESS® 
sCö 


sET1E& 
sc 
scI 
«0292 
sESCD 


sc 
sEsE? 
scE 
0287 
“800 
scr 
sEAlS 
BESBE 
[21:7 
sESFE 
00° 


sc 
SECE&.F 
80276,X 


sESF3 
s3ESCD 
“800 
SESCA 
sD3 

#00 
{sD1),Y 
4820 
$E6OF 


4E606 


sC8 


ESBA AC 77 02 LDY 
£557 42.00 LDx 
ESBF BD 78 02 LDA 
ESBC °d 77 02 STA 
ESBF 13) IKX 
ESCO E4 Ch CPx 
ESC2 DO FS BNE 
E5C4 Cd C& DEC 
ESCh 98 TrA 
ESC7 8 eıı 
ESCB 18 cc 
E5C9 Cy} RTS 
AKZEZEZZEREEZEZEZEIZZZZE ZZ ZIG 
ESCA 20 16 E7 JSR 
ESCD a3 Ch „Da 
ESCF scc STAa 
E501 8D 92 02 $STA 
ESDa FO F7 3E0 
ESD& 78 sel 
€507 As CF LDA 
E5098 FO 0C BEO 
ESDB As CE LDA 
ESDD AE 87 02  LDX 
ESEO AO 00 LDY 
ESE2 84 CF SsTY 
EIES 20 13 EA JSR 
ESE? 20 64 ES JSR 
ESEA C9 83 cHP 
ESEC D0 10 BNE 
ESEE 82.09 LDx 
ESFO 78 SEI 
ESFI 86 C6 STt 
ESIFS BD E6 EC DA 
ESF& ®d 76 02  5STA 
ESFS CA DEX 
ESFA DO F7 BNE 
ESFC FO CF BEO 
ESFE c9 0D cap 
E600 DO C8 BNE 
E602 As DS LDY 
E604 84 DO sTYy 
E60& 81 D1 LDA 
E608 c9 20 cnP 
E60A DO 03 BNE 
E60C 88 DEY 
E60D Do F7 BNE 
E&OF c8 INY 
E610 84 CB SsTY 
E6i12 AO 00 LDY 


8800 


Eıngade vor Tastatur 

a7 

Konstanten 

ın Vıdeokontroller schreiben 


Zeıchen aus Tastaturpuffer holen 
erstes leıchen holen 


Pufter nach vorne aufrucken 


sıt Anzan) der leıchen vergleichen 


Zeıchenzahl erniedrigen 
Zeıchen ın Akku holen 


warteschleife fur Tastatureingabe 
leicnen auf Bildschirm ausgeben 
Anzahl der gedruckten Tasten 


keine Taste gedruckt, dann warten 


Cursor ın Blink-Phase ? 
nein 

leichen unter dea Cursor 
Farbe unter den Cursor 


Cursor nıcnt in Blinkphase 
Zeichen und Farbe satıen 

leichen aus Tastaturpuffer holen 
Kode für "Shift RUN’ ? 


9 Zeichen 


leicnenzahl oerken 
"load tcr) run (cr) 
ın Tastaturpuffer holen 


und auswerten 

“ch 

nein, dann zurück zur Warteschleiie 

Länge der Bildschirnzeile 

CR-Flag setzen 

Zeichen von Bildschirm holen 

Leerzeichen am Ende der Zeile eliminieren 


Position als Index aerken 
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E614  8C 92 02 STY 30292 
Esi7 Ma 07 STY 507 
E619 84 Ds STY sD4 
E61B #5 Cc9 LDA sc9 
E6iD 70 15 BMI SEOSA 
EbIF Ab D6 LDxr 806 
E621 20 ED E&  JSR SESED 
Ee24  E4 C9 CcPr sC9 
E626 00 12 BNE #E63A 
E628 AS CA LDA sCA 
E62A 85 D3 STA sD3 
E62C c5 ce CHP CO 
E62E 99 9 BCC $E655A 
E&30 BO 2B BCS $E65D 
AEZEZEELZEZEEZELELZELEE TIER ETT 
E652 98 TYa 

E633 48 PHA 

E854 8A TrA 

E635 48 PHA 

Ed5e AS DO LDA sDo 
E&38 FO 93 BEQ SESCD 
Ed35A Aa DD! LdY 603 
EdSt BI Di LDA (601) ,Y 
EöSE 65 D? STa 307 
E640 29 3F AND as3F 
E632 0% 07 ASt 8D7 
Eo44 24 07 BIT 807 
E64b6 10 02 BPL 1E64A 
E&48 39 80 ORA #880 
E64A 90 04 BCC sE630 
ESAC As D& LDr sD4 
Ed4E D0 04 BNE #E654 
E630 70 02 BVI #E654 
E652 09 40 ORA @840 
E654 Ed DJ INC 603 
EdSb 20 84 Ed JSR BEBB4 
£639 ca C8 cPr sc 
E65B 09 ı7 BNE SE674 
E6SD AI 09 LDA 9809 
E6SF 83 DO STA 300 
Edbl 49 00 LDA 0800 
E663 As 99 LDr 699 
Ed63 EO 03 CPI 8603 
E667 FO 06 BEO 9EA&F 
E669 Ab 9A LDX 89a 
Ed6B EoO 03 CPX #603 
E66D FO 03 BEQ 8672 
Eb6Fr 20 16 EI? JSR BETLS 
E672 A900 LDA @80D 
E674 85 07 STA 007 
E676 68 PLA 

E677 AA Tax 

E678 68 PLA 

E679 AB TAY 

E67A AS D7 LDA 307 
E67C C9 DE CHP NsDE 
E67E DO 02 BNE 36682 
E680 A9 FF LDA as6FF 
E682 18 CcLC 


Cursorspalte gleıch Null 


Hochkoenaflag loschen 


letzte Spalte 
ın Spaltenzeiger bringen 
aıt Inder vergleichen 


Ein Zeichen von Bıldschıra holen 
Regıster retten 

CR-Flag 

nein, dann zur Kartaeschleıte 


Spalte 
Zsichen vom Rildschire hzlen 


und nach ASCII wandeln 


Cursor eıns weiter setzen 
auf Hochkonna testen 
Cursor in letzter Spalte ? 


"CR'’-Flag 


Eıngabe von Bildschira ? 
Ja 

Ausgabe auf Bildschiıra 
ja 


leıchen aut Bıldschira schreiben 


Register zurückholen 


Bildschira-Kode 
ait Kode fur Pi vergleichen 


ja, durch BASIC-Kode für Pi ersetzen 
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E6ES &0 RTS 


AUHSRaEHT SR hAHRAS RR EHER RU aur Hochlonaa testen 


E684 c9 22 camp as27 Be 

[37:73 D9 09 BNE $ERIO aeın, dann fertig 

EsBE a5 D> ıDa sD8 

Eös8h 43 01 EOR #rol Keonkonna-Flan undrenen 

EsSC 65 D& STA 5Ds 

ESBE ae 22 Lba ns2ZD Mocntonna-iode wieder harstellen 
E590 60 STS 


values arre Leichen auf Bildschirm ausgeben 


E61 09 &0 ORA 8850 

&695 Ab C7 LDr sC7 Rus” 

E695 Fo 02 BEI sco95 Umwandlung ın Bıldsckirecode 
£8597 09 809 052 us5: ja. Ganr fit 7 setzen 

E693 6 DE ıDr #08 

E698 Fo 92 BED sesst 

E69D Co DB DEC #53 

Eo®F AE Ba ıT Lor sc2Re Farst ode 

EbAT 20 13 E& JSR dESıS Zeıchen ın Bıldschırm-KAM schreiben 
E6AS 20 bs E6 JSR #666 Tabelle der Zeılenanfänge aktualısıeran 
EsAB 68 PLA 

E6sA9 ha Tay 

EdAA 5 De LBA $D8 

EsAc FO 02 BEQ sE&30 

EsAE s6 D4 LSP sd5 Hochkommamedus loschen 

E6BO 68 PLA 

EöBl AA TAx 

E6B2 68 pLa 

E6B3 18 cLc 

E6B4 58 Cri 

E6B5 60 RTS 


BaBEUEBetHANNeRRERT HIHI MSD Fur Zeilenanfänge neu berechnen 
EösB6 20 B5 EB JSR SEBBS 


€659 E6 D3 INC sD5 

E6BR AS D5 LD& 305 

E6BD C5 D3 erP 805 

E6BF BO 5F BCS sE700 

EöC1 c9 4F CHP #s4F 79 leıchen (Doppelzeile) ? 
E6C3 FO 32 BER SEAF7 

€6C5 AD 92 02 LDA 80292 

EöC8 FO 05 BEO $EECD 

E6CA 4C 67 E® JMP sEI67 

EösCcD Ab D6 LDX 8D& Zeile 
EsCcF EO 19 CPX 0819 25 ? 
EsDl 90 07 BCC sESDA 

E&D3 20 EA EB J5R SEBEA 

EöDb C6 Ds DEC $D& 

EbDE Ab D& LDX #D6 

E6DA 16 D9 ASL #D9,X 

E&Dte 56 D9 LSR $D9,%X 

E6DE EB INX 

E&DF 85 09? LDA 5D9,X 

EdEI 09 80 ORA 4580 

E6E3 95 09 STA 309,7 

EsES ca DEX 

E6E& a5 DS LDA sD5 

EsEB 18 CLE 
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EdEF 69 
EdEB 85 
EsED B5 
EsEF 30 
EöFt cA 
E&r2 00 
E6eF4 ac 
E6F7 Ch 
E6F9 20 
Eöfc AT 
EöFE 85 
E700 60 


[UZEEZZELZZEITZEZZZ EZ EEE 


E701 Ab 
&70%3 D9 
E705 86 
€707 68 
E708 [13 
E7097 DO 
€70B CA 
E7OC 86 
E7OE 29 
Eerıl Aa 
E713 94 
E715 60 


LEERE ZTEILZETTEZZZIE SERIEN] 


E7I& 48 
E717 85 
E719 8A 
E7IA 48 
E71B 98 
E7TIC 48 
E71D a9 
E7IF 85 
E721 A4 
&725 As 
E725 10 
E727 ac 
EIZA c9 
E72C Do 
E72E sc 
E731 1’ 
E753 90 
&735 c9 
E737 90 
E739 29 
€73B 00 
E73D 27 
ETIF 20 
&742 ac 
E735 Ab 
E747 FO 
E749 ac 
E74C c9 
E74E Do 
€750 98 
E751 Do 
&75J 20 


28 
05 
03 
03 


F9 
Fo 
D6 
?C 
90 
D3 


D& 
06 
D3 


D 
D6 
sc 


D5 
D5 


e7 


06 
9 


E9 


13: 


E5 


E7 


EB 


Eb 
Eb 


Eb 


E7 


ADC 
STA 
LDA 
BMI 
DEX 
BNE 
Jap 
DEC 
JSR 
LDA 
Sta 
RTS 


LDx 
BNE 
Str 
PLA 
PLA 
BNE 
DEX 
STK 
J5R 
Loy 
sry 
RTS 


PHA 
STa 
TXA 
PHA 
IYa 
PHA 
LDA 
STA 
LDY 
LDA 
BPL 
JNP 
cHPp 
BNE 
JnP 
CHP 
BCC 
CHP 
acc 
AND 
BNE 
AND 
JSR 
JNP 
LDX 
BEO 
JMP 
CHP 
BNE 
Ira 
BNE 
JSR 


#28 
sD5 
09,1 
sEöF4 


sESED 
sEIFO 
sD& 
sEB7C 
500 
sD5 


EJT- 
sE798 
805 


sE6AB 


506 
3ES6LC 
sD5 
03 


sD7 


500 
sDo 
#303 
sD7 
sET2A 
sE7DS 
us0D 
sE731 
sEBI1 
4520 
sE745 
0360 
sE73D 
nsDF 
SETSF 
LE 212 
56684 
sE693 
s08 
sE7aC 
4E597 
“s14 
sETTE 


sE759 
sE7Ot 


40 addıeren 


Zeıger auf Farbran fur Zsıle X 
Zeıle erniedrigen 


Spalte = ) 


Ruckschritt ın vornergehende Zeıle 
Cursorzeile 

null ? 

Cursorspalte 


leılennunaer ernıearıgen 
Cursorposition berechnen 


Ausgabe auf Bıldschira 
Zeichen aerren 


Register retten 


Zeichen großer $7F behandeln 
"carrıage return’ ? 


Return ausgeben 


druchendes Zeichen ? 


Test auf Hochkonmaa 
zur Ausgabe, ASCII-kKode ın Bildschirakode 


"DEL' ? 


zuruck in vorherige Zeıle 
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E756 “0 73 E7 JNP sE7773 
&759 20 Al EB JSR SEBAI 


E7SC 88 DEY 

&75D 84 D3 STY 5D3 

E75F 29 24 EA JSR sEA24 Zeıger auf Farbras berechnen 
E7&2 c8 INY 

E763 Bi Dı LLA (s01) ,Y Zeichen von Bildschirna 
E785 88 bEY 

E7o0 9101 STA (sDIV,Y eıns nach Jınks schieden 
E768 CB INY 

E769 BI FJ LDA (8F II ,Y Farde 

E76B 88 DEY 

E76C 91 F3 STA (IF DD, Y eins nach Jınks schieben 
ETBE CB INY 

E7&F C4 D5 cPY 805 

£771 D9 EF BNE $E?%I 

E773 AI 20 LDA »620 Blank eınfugen 

E775 9ı DI STa t3D1).Y 

E777 AD 88 92 LDA 80286 

E77A 9F5 STa isFy).r Farbcode setzen 

E77C 19 4D BFL SE7CB tertıg 

E7?7E A6 DA LDx 104 Hochkoana-Modus ? 

E780 FO 03 BES SET6S rein 

E782 ac 97 £6b JmP 3E6°7 Zeichen revers ausgeben 
E785 69 12 CnP ası2 "RVS ON' ? 

E787 DO 02 BNE 1E7S3 nein 

E789 65 C7 STA sC7 Flag fur RVS setzen 
E7BB c9 135 CHP #51T "HOME ? 

€780 Do 03 ENE 8E7972 neın 

E7BF 20 66 ES JER SESö& Ja, Cursor Hone 

E792 c9 ıD CHP S61D ‘Cursor right’ ? 

E798 D0 ı7 BKE $E7AD neın 

E79& c8 INY 

E797 20 83 EB JSR sEB5I 

E79A 84 05 STY sD3 

E79C 88 DEY 

E79D Cs D5 EPY #05 

E79F 979.09 BCC SETAA 

E7AI Co D6 DEC #06 

E7AS 20 7C EB JSR SEBTC 

E7A& AO no LDY 88500 

E7AB B4 03 Sır sp! Spalte gleich null 
E7AA 4C AB Ebd IM? SEBAB tertig 

E7AD c9 ı1 CHP asıı "Cursor dawn’ ? 

ETAF Do ıD BNE SETCE nein 

E7B1 18 CLC 

E782 98 TYa 

E73 69 28 AbC #828 plus 40, eıne Zeıle tıefer 
E7B5 AB TAY 

E7B6 E& D6 INC sD6 

€e788 C5 DS CHF 3D5 

E7BA 9n EC BCE #E7AG 

E7TBC FO EA BEO #E7AB 

ETBE Cö D& DEC $D6 

E?7CO €9 28 SBC #828 40 abzıehen 

E7C2 90 04 BCC $E7C8 

E7C4 85 D> STA #D3 

E7C6 00 F& BNE $E7CO 

E?CB 20 TC EB JSR 3EB7C 

E7CB AC AB Eb JMP $E6AB tertig 
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E?7CE 20 CB E8 JSKk SEBCB prutt auf Farbcodes 


E7D1 sc 42 EC JnP sEC44 test auf weitere Sonderzeichen 
TEROEBERSEEOEREHBUFTTRERBEEPS Zeichen großer 5127 

E7D4 29 7F AND as 7F Kode großer 127, Bıt 7 loschen 
E7D& c9 ?F CHP 987F "pi? 

E7Da Do 02 BNE SE7DC 

E7DA AI SE LDA e85E Bıldschirekode #ür Pı 

E7DE 29 20 CHP 8920 Steurzeichen ? 

E7DE 90 03 BCC SE7ES Ja 

E7EO °C 91 E6 JRP #E691 öruckendes Zeıchen ausgeben 
E7ES c9 00 CHF 0800 "Shift return’ ” 

E7ES D0 03 BNE BETEA 

E?E? 4C 91 E8 JnP 9EBFI neuen Zeile 

ETEA Ab D4 LDı 804 Hochronsa-Modus ? 

EIEC DO IF BNE sEB2D Ja, Steuerzeichen revers ausgeben 
E7EE 713 CnP 4814 "Ins’ ? 

E7FO 00 37 BNE #£829 

E?F2 Aa D5 LDY 805 Zeı lenlänge 

E7IFAS BI DI LDA ($D1},Y letzets Zeıchen ın Zeile 

E7F& c9 20 CHP #520 gleich Leerzeichen ? 

E7FB 00 03 BNE $ETFE 

E7FA Ca D3 CPY #DJ Cursor ın letzter Spalte ? 
EIFE Do 07 BNE #E805 

E7FE co 4F CPY asar 79 ? nauınale Teilenlänge 

E800 FO 24 BEO #E826 letzte Spalte, dann keıne Aktıon 
E802 20 65 £9 JSR 8E965 Leerzeile einfugen 

E805 A4 05 LDY sD5 Zeilenlänge 

EB07 20 24 EA JSR $EA24 leıger auf Farbran berechnen 
EBOA 88 DEY 

E80B BI Di LDA (#D1),Y leıchen von Bildschıra 

E80D ce INY 

EBNE 91 DI STA (6D1),Y eıns nach rechts schieben 

EB10 88 DEY 

Eell BI F3J LDA (8F5),Y und Farbe 

E813 CB INY 

E814 91 F3 STA (#F3),Y verschieben 

EBI& 88 DEY 

E817 c4 D3 CPY #03 bis zur aktuellen Posıtion aufrucken 
E819 v0 EF BNE 8EB0A 

EB1B A9 20 LDA #820 Leerzeichen 

EB1D 91 D1 STA (#D1),Y an augenblickliche Posıtıon schreiben 
EBIF AD 86 02 LDA 60286 Farbe 

E822 91 F5 STA t#FSD,Y setzen 

£824 Eö DB INC #DR Anzahl der Inserts erhöhen 
E826 4C Ag E6 JMP $E6AB 

E829 As DE LDX 608 

E82B FO 05 BEOQ 8EBS2 

EB2D 09 40 ORA 0840 


EB2F °C 97 E6 JnP 4697 


[UEEEERERIESSESEZZEIEZ SET II ZE 


E832 ct 1 cHP es Cursor up 

EB34 DO 16 BNE #EB4C 

EBJ& Ab D6 LDX 106 teıle 

E838 FO 37 BEO #E071 null, dann fertıg 

EBSA C6 DA DEC 806 Zeılennumaer eins erniedrigen 
£83c a5 DJ LDA 603 Spalte 

EBIE 38 SEC 

EBIF E9 28 SBC #628 40 abziehen 

E84: 90 04 BCC $E847 
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E833 
E845 
E847 
EBAA 
EBSC 
EB4E 
E8SO 
&852 
854 
£856 
E8S5B 
€859 
E856 
E3SE 
EBSF 
EBöl 
E864 
£867 
EBSA 
EBöC 
E86E 
£871 
E874 
E876 
£B73 
E87C 
EB7E 
E880 
EBSL 
E883 
E88B5 
E888 
EBBA 
13-1: 103 
EBSE 
13:121 
E893 
E895 
E897 
E89? 
E89B 
EB9IE 
EBA1 
EBAS 
EBAS 
EBA7 
E899 
EBAA 
EBAC 
EBAD 
EBAF 
EBBQ 
E8B2 
E8B3 
EBBS 
E8B7 
E9B?7 
EBBB 
E8Bl 
EBBE 


95 
19 
20 
Do 
cH 
00 
h9 
85 
c9 
Da 
98 
Fo 


- 
< 


88 
84 
ac 


a 
2 


ac 
c9 
do 
20 
sc 
09 
20 
sc 
46 
Ab 
E8 
E0 
00 
29 
B5 
10 
Bb 
sc 
A2 
86 
B6 
86 
86 
20 
sc 
a2 
49 
C5 
Fo 
18 
67 
CA 
D0 
60 
c 
60 
a2 
LE} 
c5 
Fo 
18 
69 
ca 


ES 


EB 


Ebd 
E? 
E& 


&5 


Eö 


E8 
EC 


13:) 


E5 


£8 
E6 


STaA 
BPL 
JSR 
BNE 
cnPp 
BNE 
LDA 
STA 
cap 
BNE 
TYA 
BEQ 
JSR 
DEY 
sTY 
I3nP 
JSR 
I3np 
cnP 
BNE 
JSR 
np 
ORA 
JSR 
np 
LSR 
LDı 
INX 
CPX 
BNE 
JSR 
LDA 
BPL 
Stk 
JnP 
LDX 
ST 
sta 
STK 
ST 
JSR 
JnP 
LDr 
LDA 
cnPp 
BEO 
CLc 
ADC 
DEX 
BNE 
RTS 
DEC 
RTS 
LDx 
LDA 
CHP 
BEQ 
cLc 
ADC 
DEX 


sD3 
sE871 
3ES6C 
sE871 
#512 
sE854 
500 
sc7 
asıD 
$EB6A 


sEBö+ 
SEBAI 


3D5 
sE&AB 
1E701 
SEAAB 
#513 
sE07& 
sE544 
sEsAB 
us8t 
sEBCB 
secär 
sc’ 
sdo 


.s17 
sEBBe 
sEBEA 
sD9,X 
sEaBo 
306 
sES6C 
1500 
s08 
sc7 
sDa 
sD3 
sERTC 
SE6AB 
us02 
#500 
sD3 
sEBBO 


us28 
sEBAS 
sD6 
#302 
0:27 
sD3 
sEBC2 


us28 


Cursorspalte 

posıtıv, or 
Bildschirazeıger neu setzen 
"RVS OFF’ 


RVS-Flag loschen 
"Cursor leit' ? 


Cursorspalte 

tertig 

Ruckschrit in vorherige leıle 
fertig 

"CLR SCREEN’ ? 

B:ldschirn löschen 

tertıg 

Bit 7 wieder herstellen 

auf Farbcode prüfen 

prüft auf Uaschaltung Text/Grafik 


25, letzte Zeıle 


Bıldschira scrollen 


Cursorposıtıon berechnen 


Flags löschen 


fertig 


40 addıeren, eine leıle 


39, letzte Spalte 


40 addıeren 


EBBF DO Fe BNE #E8B7 
EBCI N RTS 

E8C2 a6 Db LDı 306 
E8C4 eo 19 CPX 2819 
E8C6h FO 02 BEO $EBCA 
£8C8 Es Da INC #06 
EBCA 60 RTS 
EEZEZZTZETESERTETEEETETETTET TE 
EBCB A2 OF LDX 480F 
EBCcD DD DA EB CHP SEEDA,T 
E8D0 FO 04 BEQ #EBD& 
E8D2 CA DEX 

E805 10 FB BPL $EBCD 
E8D5 [Y) RTS 

E8D6 BE 84 02 STX 50286 
€80° 60 RTS 


AEIERZERZIEZESETREETITEITITTITT 


ESDA 90 05 IC 9F 9C IE IF 9E 
EBE2 BL 95 94 97 99 99 9A 98 
LAENZEZZEILZETTZEEZETTTIZETTITEN SZ 
EBEA AS AC LDA sac 
ESEC  &8 PHA 

EBED AS AD LDA sad 
EBEF 48 PHA 

EBFO AS AE LDA sAE 
EBF?2 38 PHA 

EBFT AS AF LDA sAF 
EBFS 48 PHA 

EBF& 2 FF LDX @sFF 
EBF8 Co D6 DEC #06 
EBFA Ca 09 DEC sC9 
EBFC CE AS 02  DEC 802A5 
EBFF EB INX 

E9300 20 FO E9_ JSR SEIFO 
£903  EO 18 CPX @81B 
E905 BO 0C BCS $SEFLS 
E907 BD Fi EC LDA sECFI,X 
Es0A  B5 AC STA sAc 
ESOC  BS DA LDA $DA,X 
E9SOE 20 CB E9_ JSR SESCH 
EsIL 30 EC BR! SEBFF 
E913 20 FF EI JSR SEIFF 
E916 A200 LDX 0500 
EISIB  BS 09 LDA $D9,X 
Esia 29 7F AND #87F 
E9IC BA DA LDY sDA,ı 
ESIE 10 02 BPL #E922 
E9320 09 80 ORA 2580 
E922 95 09 STA 509,X 
E924 EB INK 

E925  EO 18 CPX 518 
E927 DO EF BNE $E918 
E929 AS Fi LdA sFi 
E32B 09 80 ORA 5380 
E92D 85 Fi STA sri 
E92E AS 09 LDA #09 
Es5ı 10.03 BPL $EBF6 
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arüft auf Farbcodes 

Anzahl der Kodes 

ait Farbiodetabelle vergleichen 
gefunden 


Farb-Kode setzen 


Tabelle der Farb-Kodes 


Bıldschira Scro!llen 


Zeıger retten 


ab Zeile Null beginnen 
Zeılenunner erniedrigen 


Zeilennunaer erhöhen 

Zeiger auf Videoran für Zeile X 
24 

schon alle leılen ? 

LSB holen 


NnSB 


Bildschirazeile nach aben schieben 


nachste Zeıle 
unterste Bildschirazeıle löschen 
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INC 
INC 
LDA 
5Ta 
LDA 
cHP 
PHF 
LDA 
sTa 
PLP 
BNE 
LDY 
NOoP 
DEX 
BNE 
DEY 
BNE 
STY 
LDx 
FLA 
5TA 
PLA 
sia 
PLA 
sTa 
PLA 
STA 
RTS 


sac 


[USSESETEITZEIEZEIZEZITT EEE 


LDA 
InX 
LDA 
BPL 
ST 
cPpi 
BEQ 
BCC 
JER 
LDX 
DEX 
DEC 
JnP 


sD& 


5D9,X 
sE967 
802A5 
"518 

sEIB1 
sEFBI 
sEBEA 
302A5 


sD& 
4ESDA 


AEZETIEHEZELEIZZZZEIZT III III 


&933 Es D& 
E935 EE AS 02 
E938 AF 7F 
EIIA 8D 00 DE 
E9ID AD o1 DE 
E940 c9 FB 
E942 08 

E943 Ag TF 
6935 8D 00 DE 
E948 28 

E949 DO 08 
E94B AO 00 
EIAD EA 

EI4E ca 

EIAF Do FC 
£E951 98 

£952 D9 FF 
£95& 84 Ch 
E956 Ab D& 
E9SB 68 

€959 85 AF 
E95B 68 

EISC 85 AE 
E9SE 68 

EFSF 85 AD 
E9b1 68 

E962 85 AC 
E964 60 

E965 Ab D6 
E967 E8 

£968 BS D8 
EIHA 10 FB 
EIEC BE AS 02 
EI6F EO 18 
E971 FO 0E 
E973 90 0C 
£975 20 EA EB 
£978B AE AS 02 
€97B ca 

E9ITC C6 Da 
E9ITE 4C DA Eb 
E98 AS AC 
E983 48 

£E9B4 AS AD 
E986 48 

£987 AS AE 
£989 48 

EFBA AS AF 
EIEC 48 

EIBD A219 
EIBF ca 

E990 20 FO E9 
6995 EC AS 02 
E996 90 0E 
E9978 FO 0C 
EIFA BD EF EC 


LDA 
PHA 
LDA 
PHA 
LDA 
PKA 
LDA 
PHA 
LDX 
DEX 
JSR 
CPx 
BCC 
BED 
LDA 


sac 
sAD 
sAE 
Ar 
1819 
sE9IFO 
s02A5 
SEA 


sEIAS 
SECEF,K 


CTRL-Taste gedruckt °? 


nıcht gedruckt 


Verzogerungsschleitfe 


Anzahl der gedruckten Tasten gleich null 


Zeıger zuruckholen 


Eıntugen eıner Fortsetzungszeile 


Zeilennuamer 


24 


Bildschira Scrollen 


Zeılenunaer erniedrigen 


25 
Zeılennurser 
Farbras leıger berechnen 


LSB des Zeilenanfangs setzen 
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EI9ID 85 AC STA sACl 


EIIF 85 D8 LDA sD8, 7 MSB setzen 

EIAI 20 C8 E9 JSR $E9ICB Zeıle nach oben schieben 
EIA4 30 E? anl sEIBF 

EFA& 20 FF E9F JSR SE9FF Bildschirszeile löschen 

ESIAI a2 17 LDX 4817 23 

EFAB EC AS 02 CPx 802A5 

EIAE 90 0F BCC sEIBF 

EIBO 85 DA LDA $DA,X 

E9B2 29 7F AND as7F 

E9IB4 B4 D9 LDY 8D9,X 

E9B6 10 02 BPL sEIBA 

E9BB 09 80 ORA #880 

E9BA 95 DA STA #DA,KX 

EIBC ca DEX 

EFBD DO EC BNE #EIAB 

E9BF AE AS 02 LDX $02A5 

E3c2 20 DA Ed JSR $ESDA MSB neu berechnen 

E9ICS 4C 58 E9 JMP $E958 Register zurücknolen, RTS 
[UZEKERTERTZE SEN ZEZE EZ TEEN Zeile nach oben schieben 
E9CB 29 05 AND 8803 

EICA 00 08 02 ORA $0288 Bıldschirazeiger für neue Zeile 
EICH 85 AD STA #AD 

EICF 20 EO E? JSR $EFEO Zeiger für neue Zeıle berechnen 
E9D2 AO 27 LDY 0827 39 Zeichen 

E904 Bi AC LDA (#AC),Y 

E9D& 910 STA {#D1),Y Zeichen 

EIDB Bl AE LDA (SAE),Y 

EIDA 91 F3 STA tSFI),Y und Farbe übertragen 

EFDC 88 DEY 

£9DD 10 FS BPL $E9ID4 alle Spalten ? 

EFDF 60 RTS 

ILEEZERZESEELZZZEZEZEZ EI ZI EG Bıldschirazeile #ur Scrollzeile berechnen 
E9IEO 20 24 EA JSR SEA2A leiger auf Farbram berechnen 
E9IES AS AC LDA sAC 

EIES 85 AE STA #AE 

E9E7 AS AD LDA sAD 

EIEI 29 05 AND #803 leiger in $AE/SAF 

EIEB 09 Da ORA #sD8 

EIED 85 AF STA sAF 

EIEF [Y ATS 


[LEERTERETUTTSSEIEREEIETEIE ET Zeiger auf Videoraa für leıle X 
EIFO BD FO EC LDA SECFO,K LSB holen 


E9FJ 85 DI STA #D1 

EIFS BS 09 LDA 8D9,X NSB 

E9F7 29 03 AND 803 

E9F9 00 88 02 DORA #0288 Highbyte des Videorans 
EIFC 85 D2 STa 5D2 

EIFE 60 RTS 

AUZERZELENZZEERERZZ ZZ EI ZZ ZEN Bildschirazeile X löschen 
EIFF a0 27 LDY 4827 39 Spalten 

EAOI 20 FO E? JSR $E9FO leiger auf Videoras setzen 
EAO4 20 24 EA JSR #EA24 Zeiger auf Farbras setzen 
EAO7 a9 20 LDA 8820 Leerzeichen 

EAO9F 91 081 STA ($DI),Y setzen 

EAOB 20 DA EA JSR KEADA Hintergrundfarbe setzen 
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$EA07 


02 
scD 
sEA24 


sD3 
(sD1),Y 
IBFE3).Y 


s0 
sF3 
sD2 
0803 
sD8 
sF4 


sFFEA 
scc 
#EA&l 
scD 
sEAbI 
s14 
scD 
sD3 
scE 
0287 
(sD1),Y 
sEASC 
scr 
scE 
sEA23 
[122007 
30287 
30286 
scE 
880 
sEAIC 
01 
210 
sEATL 
48009 
sco 
soi 
us20 
sEA7? 
sco 
#EA7B 


EADE EA NOP 
EAOF 86 DEY 
EAIO 10 F5 BPL 
EAI2 60 RTS 
[ELZUITERLZERTERETEEEIEITII ET 
EAIS AB TAY 
EAId A9 02 LDA 
EA16 85 cd STA 
EALS 20 24 £A JSR 
EALB 98 TYa 
[EIERTEERTIEREIETETETETEEE TE 
EAIC As DS LDY 
EAIE 91 01 sta 
EA2O BA TXA 
EA21 91 83 sTa 
EA23 60 RTS 
IEILTIETIEITEITIETT TEN 
EA2& AS Di LDA 
EA26 85 F3 sta 
EA2B AS D2 LDA 
EA2A 29 03 AND 
EA2C 09 D8 ORA 
EAZE 85 F4 STa 
EASO 60 RTS 
LIEIEHKKEETEITEREETZEITITER ZT 
EASI 20 EA FF JSR 
EAI4 as cc LDA 
EAS& do 29 BNE 
EA3B Ce CD DEC 
EASA Do 25 BNE 
EASC a9 14 LDA 
EASE 85 CD STA 
EA4O Aa D> LdY 
ER42 a6 CF LSR 
EA4a AE 87 02 LDx 
&A47 81 Di LDA 
EA4I bo 1 BCS 
EA4B Es CF Int 
EAAD 85 CE STA 
EAAF 20 24 EA JSR 
EAS52 BL FJ LDA 
EAS4 8D 87 02 sta 
&A57 AE B& 02 LDXx 
EASA a5 CE LDA 
EASC 49 80 EOR 
EASE 20 IC EA JSR 
EAdL AS 01 LDA 
EAR6S 27 10 AND 
EA6S FO 0A BEO 
EA67 AO 00 LDY 
EA6? 84 C9 sTY 
EA6B a5 01 LDA 
EAsD n? 20 ORA 
EABF DO 08 BNE 
EATI AS co LDA 
EATS D0 06 BNE 
EA7S AS 08 LDA 


sol 


schon Spalte 0 ? 


Blınkzahler bei Repeatfunsrtion setzen 
Zeıger auf Farbram berechnen 


leıchen und Farbe auf Bıldschiıra setzen 
Spaltenpositıon 

Teıchen ın Akku auf Bildschirm 
Farb-Kode in X 

ın Farb-RAM schreiben 


Zeiger auf Farb-RAN berechnen 
sD1/$D2 = Zeiger auf Vıdeo-RAM-Posıtion 


Kıgh-Byte = $08 
sF3/sF4 = Ieiger auf Farb-KAM-Pasıtion 


Interrupt-Routine 

Stop-Taste, Zeit erhohen 
Blink-Flag für Cursor 

nieht blinkend, dann weiter 
Blınkzahler erniedrigen 

nicht null, dann weiter 
Blınkzahler wieder auf 20 setzen 


Cursorspalte 

Blinkschalter null dann Cell 
Farbe unter Cursor 
leichen-Kode setzen 
Blinkschalter war eın, dann weiter 
Blınkschalter eın 

leichen unter Cursor serken 
Zeıger in Farb-RAN berechnen 
Farb-Kode holen 

und serken 

Farb-Kode unter Cursor 
leıcnen unter Cursor 

RVS-Bıt uadrehen 

Zeıchen und Farbe setzen 


prutt Rekorder-Taste 
gedrückt ? 


Rerorder-Flag setzen 
Rekoder-Notor aus 


Rekorder-Flag 
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£A77 27 ıF AND #81F 
EA77 85 91 SsTa #01 
EAT7R 29 87 EA JSR sEAB7 


EATE AD 0D DC LDA 8DC0D 
EABI 68 PLA 

EAB? AB TAY 

EABS 68 PLA 

EAB4 aA Tar 

EABS 68 PLA 

ERBE 30 RTI 
IKEITITFEITETUEEERTEIEEETTT | 
EAB? A9 00 LDA 8500 
EABT 8D 8D 92 STA 50280 
EABC AO 40 LDY 0839 
EABE 84 CB STY $cR 


EA9O 8D 00 DE STA sDCOO 
EA93 dE 01 DC LDX 8DCH1 


EA9& EO FF CPX asFF 
EAIB Fo 81 BEQ SEAFB 
ERIA AB TAY 

EA9B a9 81 LDA #881 
EA9D 85 F5 STA $F5 
EAFF AI EB LDA WsEB 
EAAI 85 F& STAa sF& 
EAAT AI FE LDA ®sFE 
EAAS 8D 00 DC STA 8DCHO 
EAAB A2 08 LDx A108 
EAAA 48 PHA 


ERAR AD 01 DC LDA #DCo1 
EAAE cD 01 DC CMP sDCOl 


EABI Do FO BNE $EAAB 
EABS 4a LSR A 

EABA 80 16 BCS sEACC 
EAB& 48 PHA 

EAB7 81 F5 {Da (6rf5),Y 
EAB® c9 05 CHP 8505 
EABB B9 9C BCS SEACH 
EABD c9 03 CHP 9503 
EABF FO 08 BEO sEAC9I 


EACI 0D 8D 02 ORA 50280 
£gAca 8D aD 02 STA 6028D 


EAC? 10.02 BPL sEACB 
EACc9 84 CB STY $CB 
EACR 68 PLA 

EACC ce InY 

EACD co 4 CPY mal 
EACF BO OB BCS SEADC 
EADI ca DEX 

EAD2 00 dDF BNE $EABI 
EADA 38 SEC 

EADS 68 PLA 

EADb 2A ROL A 
EAD? eD 00 DE STA 6DCOO 
EADA 00 CC BNE $EAAB 
EADC [] PLA 

EADD sdC BF 02 JNP (8028F) 
EAEO AA CB LDY sCB 
EAE2 Bi F5 LDA ISF5),Y 
EAE4 AA TAX 


Rekorder-Motor ein 
Tastatur-Abtrage 

IRO-Flag loschen 

Register nieder herstellen 


und Ruckkehr voa Interrupt 


Tastatur-Abfrage 

Shift /CTRL Flag rucksetzen 
$30 = keine Taste gedruckt 
Kode für gedrüctte Taste 
Jede Matrıxzeile testen 


keıne Taste gedrückt ? 
dann beenden 


leıger auf Tabelle I 3EBGl 


8 Matrixzeilen 


Tastatur entprellen 


Bits nacheinander ins Carry schieben 
“1° gleich nıcht gedruckt 


ASCII-Kode aus Tabelle holen 
größer gleıch 5 ? 
"STOP’-Kode ? 

Flag setzen 


Numaer der Taste serken 


großer $40 ? 


nachste Natrix-Spalte 


nächste Matrıx-Zleile 
JMP $EB4B setzt Zeiger auf Tabelle 


Nuaser der Taste 
ASCII-Wert aus Tabelle holen 


237 


EAES ca c5 cPY 
EAE? Fo 07 BEO 
EAEI a0 10 LDY 
EAEB 8c 8C 02 SIY 
EREE Do 56 BNE 
EAFO 297 ?F AND 
EAF2 2C 8A 02 BIT 
EAFS 30: Bm 
EAFT 70 49 BVS 
EAFS C9 7F cnPp 
EAFB FO 29 BEO 
EAFD CI 14 CHP 
EAFF FO 0C BEO 
EBO! 9 20 cnp 
E803 FO 08 BEO 
E505  C9 ıD chPp 
EBO7 FO 0& BER 
E809 co 1 cup 
EBOB DN 55 BNE 
EBOD AC 6C 02  LDY 
EBIO FO 05 BEO 
eBI2 CE 8C 02 DEC 
EBI5S Da 2B BNE 
EB17 CE 8B 02 DEC 
EBIA DO 26 BNE 
EBIC A004 wdr 
EBIE BC BB 02 STY 
EB21 As Ch LdY 
EB23 68 DEY 
£824 10 :C BPL 
EB26 As Ch uDY 
eB28 84 C5 sTY 
EB2A ac 80 02  LDY 
EB2D BC BE 92  STY 
EBSO ED FF CPAx 
£832 FO 0E BER 
EB3J4 aA TIA 
EBSS Ab C& LIr 
EB37 EC 89 02 CPx 
EBIA BO 06 BCS 
EBSC °D 77 02 STA 
EBJIF EB Inx 
EB4O 86 C& sTt 
EBA2 A9 TE LDA 
EBAA gD 00 DE  STA 
£B47 60 RTS 
ÄLELEETTETZTETEREELTEITETTETT 
EBAB AD BD 02  LDA 
EBAB C9 03 cHP 
EB4D 00 13 BNE 
EB4F CD BE 02 CHP 
EB32 FO EE BEO 
EBS4 AD 91 02  LDA 
£B57 30 1D an] 
EBSF AD 18 DO LDA 
EBSC 49 02 EOR 
EBSE eD 18 00 STA 
EBbl a6 76 EB Jnp 
EBö4 9A ASL 


sc5 
sEAFO 
«#10 
s023C 
sEB26 
us7F 
3028A 
sEBOD 
sEB#2 
ausıFE 
sEB26 
ns18 
sEBOD 
4820 
SERBOD 
"s1D 
sEBon 
esii 
sE542 
so28C 
sE317 
s028C 
seBa? 
s0283 
sEBEe? 
asos 
50283 
sc 


sEB42 
sCB 
8C5 
so28D 
s028E 
sFr 
sEBA2 


[73 
s02837 
sER«2 
30277,X 


sC6 
u87F 
#DC00 


3028D 
#s0J 

sEB64 
3028E 
4EB42 
30291 
sEB7& 
3D018 
0802 

30018 
sEB7& 

A 


nit letzter Taste vergleichen 


Repeat-Verzogerungszahler 

Bıt 7 loschen 

Repeat-Funktion fur alle Tasten ? 
Bit 7 gesetzt, dann alle Taste wıederholen 
Bit 5 geset?t, dann ignorieren 
nur folgende Tasten wiederholen 
"DEL', "INST' Kode 

Leerzeichen 

Cursor right, left 

Cursor down, up 
Repeatverzögerungszahler 
runterzahlen 
Reoeatgeschindigkeitszähler 
Zänler neu setzen 


Anzahl der leichen im Tastaturpuffer 


nehr als eın Zeichen in Puffer, dann ignorieren 


Tastatur-Kode ungültig ? 
ja, dann ignorieren 


Anzahl der Zeichen ım Tastaturpuffer 
nit Maximalzani vergleichen 

Puffer voll, dann Zeıchen ignorieren 
Zeichen in Tastaturpuffer schreiben 


Zeıchenzahl arhöhen 
Tastatur-NMatrix Abtrage aut Dotault 


Pruft auf Shift, CTRL, Coasodore 
Flag tur Shitt/CTRL 


Zeiger auf Dekodiertabelle berechnen 
Shift-Coanodore erlaubt ? 

nein, zurück zur Dekodierung 
Shift/Conaodore 

Uaschaltung Klein/Graß -Schreibung 


fertig 
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EBöS 
EB57 
EB69 
EB&B 
EB&C 
EBöF 
EB?I 
EB74 
EB7& 


c9 
0 
Ar 
AA 
BD 
85 
BD 
85 
sc 


08 
02 
96 


79 
FS 
7A 
F& 
€0 


EB 


14) 


EA 


cnP 
BCC 
LDA 
Tax 
LDA 
STA 
LDA 
STA 
JNP 


“50 
sEB 
“30 


8 
6B 
& 


sEB79,X 


sF5 


sEB7A,K 


sF& 
1EA 


Eo 


EESZEETTEETERTEERESTIITETTET TE 
81 EB C2 EB 03 EC 78 EC 


ERSTER BAT ERTESTRU PIE RTG 


0D 
57 
52 
59 
LE 
50 
2A 
sr 


1D 
Ey 
44 
47 
aa 


az 


3B 
94 


85 
sA 


86 
53 
4 
48 
4B 
3A 
30 
02 


87 
45 
54 
55 
4F 
40 
E13 
51 


1 
01 
58 
56 
4E 
2C 
2F 
05 


[LIZEZEELIIETTERTITETEIEZEI TE 


ed 
D7 
D2 
D9 
c’ 
D9 
co 
sr 


9D 
c 


sc 


89 


8A 


aB 
cs 
D4 
05 
cr 
BA 
DE 
D1 


An 


AEZEZZEERZEZ ZEN ZEZZEZEZZEIEZ ZT 


aD 
B3 
B2 
97 
A2 
Ar 
DF 
sr 


92 
BO 
ac 
LE} 
B3 
B& 
sd 
04 


dc 
97 
62} 
°B 
so 
De 
9 
93 


8A 
AE 
BB 
84 
Al 
SB 
30 
02 


88 
Bi 
AI 
B8 
B? 
As 
DE 
AB 


A 


LZESTIZELZZLEZZEZIZEZZEEEZ ZI 


E879 

EBaL 14 
EBB9 33 
EB9IL 35 
EB997 37 
EBAI 39 
EBAI 2B 
EBBI sc 
ERBI 1 
EBCI FF 
EBC2 94 
EBC9 23 
EBD2 2 

EBDA 27 
EBE2 29 
EBEA DB 
EBF2 A? 
EBFA 21 
Eco2 FF 
ECOS 94 
ECOB % 
EC1S 98 
ECiB 9A 
E23 29 
EC2B Ab 
EC33 AB 
ECIB 81 
EC43 FF 
ECc44 c9 
EC4& Do 
EC4B AD 
EC4B 09 
EC4D Do 
EC4F c’ 
EcSI D0 
ECSJ AD 
ECI& 27 
EC38 8D 
ECSB 4c 
ECSE c9 
EC&O Do 


dE 
07 
18 
02 
07 
8E 
OB 
18 
FD 
18 
Aß 
08 
07 


D0 


00 


cHP 
BNE 
LDA 
ORA 
BNE 
cap 
BNE 
LDA 
AND 
STA 
JNP 
CHP 
BNE 


uso 
sEC 
sD0 
LEI 
#EC 
“88 
sEC 
#D0 
sr 
sDo 
sE& 


E 
ar 
18 
2 
58 
E 
SE 
18 
D 
18 
Li) 


4608 


sEC 


69 


Zeiger auf Tastatur-Derodiertabelle laden 


zuruck zur Dekodierung 


Zeiger auf Tastatur-Dekodiertabellen 


Tastatur-Dekodiertabelle I, ungeshitfted 


Tastatur-Dekodierung, Tabelle 2 geshifted 


Tastatur-Dekodierung, Tabelle J, nit 'Co'-Taste 


prüft auf Steuerzeichen 
chrs(14) 


Character-Generator 
auf Brofschritt-Nodus 


chr&(142) 
Kleinschrift-Modus 
setzen 


chrs(B) 
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E62 a9 80 LDA 8580 


ECs2 0D #1 02 ORA 60291 Shıtt-Consodore sperren 
Ec67 20 09 BMI $sEC7Z 

EC89 c9 09 CHP ns08 chrst9 

EC6R Do EE BNE SECSB 

EC6&D AI TF LDA »s7F 

EC&F 2D 91 0? AND 80291 Shisit-Comnodore eraoglichen 


EC7Z 8D 91 02 STA 80291 
EC75 4C AB E& JMP SEAAB 


LIKSLTITZTTEERELTETZZIIEZ EN Tastaturdekodıerung, Tabelle 4, mıt CTRL-Taste 
EC78 FF FF FF FF EFF FF FR FF 

EC6O ıc 17 01 9F 1A 13 05 FF 

Ec8BB 9C 12 0% IE 05 06 1# 18 

EC9O if 19 07 9E 62 18 15 16 

EC98 12 09 0A 92 OD OR OF WE 

EcAD FF 10 0C FF FF 1B 00 FF 

ECAB Ic eF ID FEFF IF IE FF 

ECBO 90.06 FF OS FF FF IL FF 

ECBS FF 


artseadsae least era eı kKonstanten fur Vıdeocontroller 
ECBI 00 00 00 00 09 06 00 a0 

ECCI 99 n0 00 9 96 209 H0 20 

ECC9 00 ®B 37 00 00 06 08 09 

ECDI 18 OF 60 90 co 00 an @w 

ECD® 0OE 06 01 02 03 08 00 0: 

ECEI 02 03 na n5 08 07 


Varteradeeutzeetetanheeunksunaıe Text nach Drücken von SHIFT RUN/STOP 
ECE7 ac af 41) aa 00 52 55 SE load (cr) run (er) 
ECEA oD 


Kaaıpaeadsareganshadiearaasesa Tabelle der LSB der Bıldschırmzeilen-Anfänge 
ECFO 00 28 50 786 AU CO FO ı8 

ECFB a0 68 90 BB EO 08 30 58 

£D00 B0 AB DO FE 20 28 70 98 

EDde CH 


[KIZERZZEITERRUIETT ET 


lEC-Bus Routinen 


ÄKZZZZZEZZZZEIEZZZEZZEZ EZ ZEN) TALK senden 

EDO9 09 40 GRa 0440 Bit fur Talr setzen 

EDOB 2C ‚BYTE 82C 

[EEKZZEELZESZEIZZEIZZE I ZZ EG LISTEN senden 

EDOC 09 20 ORA #820 Bıt fur Lısten setzen 

EDOE 20 Ad FO JSR $FOAS Tıaer für 1EC Time-out setzen 
EDII 48 PHA 

ED12 24 94 BIT 994 noch eın Byte auszugeben ? 
EDI4 10 0A BPL $ED2O nein 

EDIE 38 SEC 

ED17 66 AS ROR $AS 

ED19 20 49 ED JSR SED4O Byte auf IEC-Bus ausgeben 
EDIC 46 94 LSR 494 

EDIE 46 A3 LSR 6A3 

ED20 68 PLA 

ED21 85 95 STa #95 auszugebendes Byte 

£D25 78 SEI 


ED24 20 97 EE JSR 3EE97 
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ED27 c9 IF CHP us3FE 
ED29 D9 03 BNE $ED2E 
ED2B 20 85 EE JSR $EEBS 
ED2E AD 00 DD LDA 8DD90 
EDyt 09 08 ORA 8508 
ED35 8D 00 DD STA sD000 
ED3& 78 SEI 

ED37 20 BE EE JSR sSEEBE 
EDSA 20 97 EE JSR SEE97 
EDSD 20 BJ EE JSR $SEEBS 
EEZEZZESESZEIZERTEITTET TIER 
£Da0 78 E12 

EDa1 29 97 EE JSR sEE97 
ED44 20 A9 EE JSR sEEAI 
Ed47 30 44 BCS $sEDAD 
2048 20 85 EE JSR #EEBS5 
EDAC 24 AJ BIT sAas 
ED4E 19 0A BPL SEDS5A 
EDSN 20 A? EE JSR SEEAI 
E05! 90 FB BCC FE050 
ED55 29 AI EE JSR SEERI 
E058 BO FB 8C5 $EDS5 
EDSA 20 A9 EE JSR SEEAT 
EDSD 90 FR BCC $ED5A 
EDSF 29 8E EE ISR sSEEBE 
EDsR A? 08 LDA #308 
EDs4 85 AS STA sA5 
[3777 AD 00 DL LDA #D000 
ED67 CD 909 DD CHP $DDHN 
ED&C Do FB BNE SED66 
ED4E 9A AasL A 
EDöF 99 3F BCC sEDBO 
£0?71 66 95 ROR $95 
ED73 B0 05 8CS $ED7A 
ED?75 20 AU EE JSR SEERO 
ED7B D0 03 BNE #ED7D 
ED?7A 20 97 EE JSR #EE97 
EOTD 20 85 EE JSR #EEBS 
EDAO EA NOP 

EDEL EA nop 

£D82 EA NOP 

EDBS EA NOP 

E084 aD 009 DD LDA sD000 
ED87 29 DF AND u$sDF 
£D89 09 10 ORA Ns10 
EDSB BD 00 DD STA sDD00 
EDBE C6 AS DEC $AS 
ED9O Do Da BNE $SED6& 
ED92 A9 04 LDA N804 
ED94 8D 97 DC STA sDC07 
ED97 a? 19 LDA A619 
£D9? 8D OF DC STA $DCOF 
ED?C aD op DC LDA $DCOD 
EDFF AD 0D DC LDA sDCOD 
EDA2 29 02 AND #802 
EDAs D0 0A BNE $EDBO 
EDAd 20 A? EE JSR $EEAI 
EDA® Bo F4 BCS $EDIF 
EDAB 58 cLl 

EDAC 50 RTS 


ATN setzen 


eın Byte au# lEC-Bus ausgeben 


Bıtzähler fur serielle Ausgabe setzen 


Daten ausgeben, 'L' 
Clock aus 
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LEIETTERZEIZTETEE SEITZ ZEIT ZT 


EDAb AI 80 LDA 4480 
EDAF 2C .BYTE 82C 
EDBO AI 03 LDA 4803 
EDB2 20 IC FE JSR SFEIC 
EDBS 58 CL] 

EDBb 18 cLc 

EDB? 30 4a BCC $SEEO3S 
LEREZTIEETZEITZZEZZEZZZEZZU EZ 
EDB9 85 95 STA #95 
EDBB 20 36 ED JSR 8ED:!d 
EDBE AD 00 DD LDA sDDOO 
EDCi 29 F7 AND #6F7 
EDCS BD 00 DD STA #DD0O 
EDC& 869 RTS 
AÄEZESERZETZZILTTZELZEZ ZZ SIZ ZZ ZZ 
EDC?7 85 95 Sta sos 
EDL9 20 36 ED  JSR SEDSE 
EDCC 78 sel 

EDCO 20 AO EE JSR SEERAT 
EDDO 20 BE ED JSR sEDEE 
EDDS 20 85 EE JSK SEESS 
EDDeE 20 09 EE  JSR SEEAS 
EDDF 30 FB BHT sEDD& 
EDOB 58 ci 

EDDC 60 RIS 
ARZEEZELZEZZZEZEL ZZ ZZ EZ EZ ZZ ZZ} 
EDDD 24 95 BIT 898 
EDDF 30 05 BMI SEDES 
EDEI 38 SEC 

EDE2 66 94 ROPR 994 
EDES D9 05 BNE sEDEB 
EDEL 48 PHA 

EDE? 20 40 ED JSR sEDAO 
EDEA 68 PLA 

EDEB 85 95 STa 895 
EDED 18 cLc 

EDEE 60 RTS 
RAEZZZSZEZZZLZLZESZZZZZZZ ZZ ZZ 
EDEF 78 SEI 

EDFO 20 BE EE JSR sEEBE 
EOFS AD 09 DD LDA sDDOO 
EDF& 09 08 DRA #508 
EDFB ed 00 DD STA sDDOO 
EDFB AI SF LDA #8s5F 
EDFD 2C ‚.BYTE #2C 
LAZT ZZ ZEZZZZENZEZZZZZZZZZZ ZT 
EDFE AI SF LDA #s3F 
EEOO 20 11 ED JSR #EDII 
EEOJ 20 BE ED J6ER SEDBE 
EE06 8A TXA 

EE0OT  A2 0A LDx #504 
EEO®F ca DEX 

EEOA Do FD BNE $SEEOF 
EEOC AA Tax 


"device not present 


"tıne out” 
Status setzen 


Sesundaradresse nach LISTEN senden 
Sexundaradresse speichern 
aıt ATN ausgeben 


AIN ruchsetzen 


Serundaradresse nach TALK ausgeben 
Sekundaradresse speichern 

aıt ATIN ausgeben 

B:t '0° ausgeben 

ATS rucksetzen 

Takt ein 

Datenbıt holen 

a”? 


1ECOUT eın Byte aut IEC-Bus ausgeben 


Byte auf Bus geben 


UNTALK senden 
Takt aus 


ATN setzen 


UNLISTEN senden 


ausgeben 
ATN rücksetzen 


ca. 40 Kikrosekunden warten 


EEGD 20 85 EE JSR sEEBS Takt eın 
EEIO ac 97 EE JMP sEE97 


AERRALZZSSSELZZZEL ZEIT EI DEI Z 1ECIN eın Zeichen vor IEC-Bus holen 
EELIT 78 SEI 

£EEI4 A? 00 LDA #800 

EE1& 85 AS sta 345 

EEIS 20 85 EE JSR SEEBS Takt ausgeben 
EEIB 20 A® EE JSR #EEAF Datenbit holen 
EEIE 10 FB BPL SEEIB 

EE2O A9 01 LDA #501 

££22 8D 07 DC STA $0C07 

EE25 AP 19 LDA #819 

EE27 aD OF DC STA sDCOF 

EE?2A 20 97 EE JSR #EE97 Bit 'L° ausgeben 
EE2D AD 0D DC LDA $DCOD 

EESO AD OD DE LDA sDCOD Timer abfragen 
EE3SJ 29 02 AND 4102 

EE3S D0 07 BNE $EESE 

EE37 20 A9 EE JSR 3EEAI Datenbıt holen 
EESA so F4 Beml sEESO 

EESC 19 18 BPL $EES6 

EESE AS AS LDA AS 

EE4O FO 05 BEQ sEEA7 

EE32 A9 02 LDA #802 "time out‘ 

EE44 4C B2 ED JMP sEDB2 Status setzen 
EE47 20 AO EE JSR KEEAO Bıt "0° ausgeben 
EE4A 20 85 EE JSR 8EEBS Takt ein 

EE4D A9 80 LDA 08340 "EOF’ 

EEAF 20 IC FE JSR sFEIC Status setzen 
EES2 Ed AS INC #A3 

EEJ4 DO CA BNE SEE2O 

EES6& AI 08 LDA 6308 

EESB 85 AS STA #A5 Bıtzähler setzen 
EESA AD 00 DD LDA 30000 Datenbit holen 
EESD cD 00 Dd CHMP #DDOO 

EE&O DO F& BNE $EESA 

EEs2 oA ASL A ins Carry schieben 
EE&S 10 FS BPL sEESA 

EE63 66 A4 ROR #A4& 

EE67 AD 00 DD LDA 8DDOO 

EEBA CD 009 DD CHMP $0D00 Daten holen und entprellen 
EE6D do F& BNE $EE67 

EEöF 9A ASL A 

EE7O 30 F3 BMI #EE67 

EE72 C6 AS DEC 6A9 

EE74 09 E4 BNE #EEJA 

EE7& 20 AO EE JER #EEAO 

EE79 24 90 BIT 990 Status 

EE7B s0 03 BVC sEEBO kein EOF ? 

EE7D 20 06 EE JSR $EE06 warten und Bit 'I' senden 
EEBO a3 a4 LDA 644 

EE8?2 38 eıı 

EEBJ 18 CLc 

EEB4 60 ARTS 

LLZELTERTETTEITIERT ELTERN Seriellen Takt ein 
EE8S AD 00 DD LDA 80000 

EEBE 27 EF AND asEF Bit 4 löschen 


EEBA BD 00 DD STA $DDO0 
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EEBD 6) RTS 


KESTETTERTZEELZIEEEIZETZIEZ ZT 


EEBE AD 00 DD LDA 80000 
EESı 09 10 ORA 0510 
EE9T BD 00 DD STA #DD00O 
EEIS 60 RTS 
ELELTEZITETZEIZEIEIZZZERZECZ Z Z 
EE97 AD 00 DD LDA #DD09 
EESA 29 DF AND asdF 
EESC BD 00 DD STA sDD0O 
EE9F 60 RTS 
EIEZELTELTTEIER TEL IIIE I ZZ ZZ 
EEAU AD On DD Ba 205 
keas 08 29 0R& »520 
EEAS BD 09 DD STA KDDCG 


EEAB sn RTS 


ERZLREZZIELZETZERELETTE ZEIGT 


EEA®_ AD 00 DD LDA EDTOS 
EEAC CD 00 DD CHP sDDau 
EERF DO Fe ENE SEEAO 
EEBI  0R ası a 
EEb2 50 RTS 
IESETZETTELZE KIT ZEZZEEE ZZ ZZ 
EEBT BA I1a 

EEBA A2 BB LDı "sBB 
EEBö CA Dex 

EEBT DO FD BNE $SEERB& 
EEB® AA Tay 

EEBA 60 Ex 
LIXLSKETTEIEZ ZZ ILZZ EIS EEZ ZI ZZ 
EEBB AS Ba LDA sB2 
EEBD FO 57 BER SEFOS 
EEBF 30 3F ErI sEFOO 
EECI 46 B6 LSR sB6 
EECS A2 m LDX 8890 
EEc5S 90 01 BCC sEECB 
EEC7 ca DE» 

EECB 8A Txa 

EEC9 45 BD EOR $ED 
EECB 985 90 STA sBD 
EECD C6& BA DEC sB4 
EECF FO 0% BED tEED? 
EEDI 8A TA 

EED2 29 08 AND #504 
EER4 85 65 STA 85 
EED& +0 RTS 
EEDT__A9 20 LDA #820 
EEDF_ 2C 94 02 BIT 30294 
EEDC FO 14 BEO #EEF2 
EEDE 30 ıC BMI SEEFC 
EEEO 7014 BVS SEEF& 
EEE2 AS BD LDA sBD 
EEEA 00 01 BNE $EEE7 
EEE& CA DEx 


Seriellen Takt aus 


Bıt & setzen 


"1'-Bıt ausgeben 


Bıt 5 loschen 


"N '-Bıt ausgeben 


Bbıt 5 serien 


Bit von lEC-Bus ıns Larry-Flag holen 
Datenregıster 


Datenbir ıns [Larry schieben 


Verzoaerung I Mıllısekunde 


184 


RS 252 Ausgabe 
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EEE? 
EEE9 
EEEC 
EEEE 
EEFO 
EEF2 
EEF4 
EEF6 
EEFB 
EEFA 
EEFC 
EEFE 
EFOO 
EFO2 
EFOS 
EFO6 
EFO9 
EFOA 
EFOC 
EFOF 
EFLL 
EFIS 
EFIS 
EF1? 
EFI® 
EFIC 
EFIE 
EF2I 
Er 24 
EF26 
EFZB 
ErF2A 
EF2D 


EF2E 
EFSO 
EFSI 
EFSS 
EF3& 
EFII 
Er3B 
EFSE 
EF41 
EF4S 
EF4& 
EF4R 


02 


DD 


02 


92 
02 


02 


DEC 
LDA 
BPL 
DEC 
BNE 
Inc 
BNE 
LDA 
BEO 
BNE 
BvS 
BVC 
INC 
LDx 
BNE 
LDA 
LSR 
BCC 
BIT 
BPL 
BVC 
LDA 
STA 
STA 
LDx 
ST 
LDY 
cpY 
BEQ 
LDA 
STA 
INC 
RTS 


LDA 


+B4 
s0293 
sEEDI 
sB4 
sEEDI 
s54 
SEES 
sBD 
sEEE7 
sEEE& 
sEEET 
sEEES 
sB3 
BSFF 
sEEDI 
50294 
A 
sEF1J 
#D001 
sErF2E 
sEF3I 
us00 
s8D 
sB5 
50298 
s54 
502FD 
8029E 
sEF39 
GFn,Y 
$B6 
50290 


as40 


.BYTE $2C 


LDA 
ORA 
STA 
LDA 
STA 
EOR 
ORA 
STA 
sTa 
RTS 


LL 20) 
50297 
40297 
ss01 
sDDOD 
s02Al 
"880 
302A1 
#DDOD 


AEEREEZENZZEREZZERZE ZU ZZ EZ ZZ 


EFAA 
EF4C 
EF4E 
EFSI 
Ers53 
EFSA 
EFS6 
EFS? 
EFSB 


E59 
EFSB 


A2 
Ag 
2C 
Fo 
ca 
50 


09 


LE 
33 


02 


LDX 
LDA 
BIT 
BEO 
DEX 
BVC 
DEX 
DEX 
RTS 


LDX 
BNE 


0509 
us20 
0293 
sEFS54 


sEFSS 


«A? 
sEFPO 


fehlt DSR ? 
fehlt [TS ? 


alle Bytes gesandt ? 


Datenbyte aus RS 232 Puffer holen 
zum senden übergeben 
Pufferzeiger erhöhen 


DSR (Data Set Ready) fehlt 
CTS (Clear To Send) fehlt 


Statug setzen 


IRQ fur Timer A löschen 


Flag fur RS 252 uadrehen 


Anzahl der RS 232 Datenbits berechnen 


Kontrollwort 


X = Anzahl der Datenbıts 
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EFSD Cö AB DEC $AB 


EFSF FO 56 BEQ sEF9? 
EFbL 30 0D 8nI sEF7O 
EF&3 a5 A7 LDA sA7 
EF&S 35 AB EOR $äB 
EF67 85 AB 5Ta sAB 
EF&® 46 A7 LSR $A7 
EF&B 66 AA ROR $AA 
EF&D 60 RTS 

EF&E Ca AB DEC sAB 
EF?O AS A? LDA 87 
EF?2 Fü 67 BEQ tEFDE 
EF74 AD 83 0% LOA 10793 
EF77 0A ASL A 
EF78 AI 01 LDA #501 
EF7A 65 AB ADC sAB 
EF?C DO EF BNE SEFOD 
EFTE A9 99 LDA #580 
EFBO 8D 0D DD 5STA sDDOoD ®xD über ‘Flag’ empfangen 


EFBJ 90 AI 02 ORA sO2A1 
EFB& 8D AI 02 STA $02AI 


EF89 e5 A? STA 5A3 

EFeB APR 02 Da as? 

EFBD ac 18 EF JmP sSEFISB IRQ für Tıner B löschen 
EF9O AS A7 LDA 1A? 

EF9?2 DO EA ENE SEFTE 

EF94 85 A9 5TA #99 

EF9& 60 RTS 

EF97 AC 98 02 Ldr 50298 Pufferzeiger erhöhen 
EFSA CB INY 

EF®B CC 90 62  CPr 8029C 

EF9E FO 2A BEC SEFCA 

EFAO BC 9B 02 STY 80298 

EFAS 988 DEY 

EFA4 AS AA LDA SAA zı sendendes Byte 
EFA& AE 98 02 LDY 80298 Anzahl Datenbits 
EFAI Eo 09 CPX #809 

EFAB FO 048 BEO sEFBI 

EFAD 4A LSR A 

EFAE EB INX 

EFAF Do F& BNE $EFA9I 

EFBI 91 F7 STA (SFT),V öyte ın RS 232 Putter schreiben 
ErB3 Ag 20 LDA #820 

EFBS 2C 94 02 BIT 50294 

EFBB FO 84 BEO SEFöE 

EFBA 30 Bi BMI SEF6D 

EFBC AS A7 LDA 347 

EFBE 45 AB EOR $sAB 

EFCO FO 03 BEO sEFCS 

EFCZ 790 49 BVS SEF6D gibt RTS 

EFCA 2C »„BYTE 82C 

EFCS 50 A6 BVC SEF&D gibt RTS 

EFC? A9 01 LDA #801 Parity-Fehler 

EFC9  2C .BYTE s2C 

EFCA AI 04 LDA #303 Enptängerpuffer voll 
EFCC 2C ‚BYT£ $2C 

EFCD A9 80 LDA #380 Break-Betfehl enpfangen 
EFCF 2C .BYTE 82C 
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EFDO 89 02 LDA 
EFD2 0D 97 02 ORA 
EFDS 80 97 02 sTa 
EFDB ac TE ER JInP 
EFDB AS AA LDA 
EFDD D9 Fi ENE 
EFDF FO EC BEO 
[KELETEZERTTRTEETTEETEITERE ER 
EFEI BS 9A sTa 
EFEI AD 94 02 LDA 
EFE& aa LSR 
EFE? 90 29 BCC 
EFEI A9 02 LDA 
EFEB 2C 91 DD BIT 
EFEE 10 1D BPL 
EFFO Dy 2a BNE 
EFF2 AD AI 02 LDA 
EFFS 29 02 AND 
EFFT DO F9 BNE 
EFF 2C 01 DD BIT 
EFFC 70 FB BVS 
EFFE AD 01 DD LDA 
F0O] 99 02 ORA 
F693 8D 01 DD 5Ta 
F008 2C 01 DD BIT 
F009 79 07 BVS 
FOOR 30 F9 BHI 
FOOD a9 40 LDA 
FOoF aD 97 02 STA 
Fol2 18 CLC 
Fo13 60 RIS 
IEZEKENTEETTERTZEETEE SIERT 
FOL4 20 28 FO JSR 
F017 AC 9E 02 LDY 
FOIA c8 INY 
FOLB cc 90 02 CPY 
FOLIE FO F4 BEQ 
F020 ec 9E 02 sTY 
FO23 88 DEY 
024 A5 IE LDA 
FO2& 91 F9 sTa 
F028 AD AI 02 LDA 
FO2B “A LSR 
FO2C BO IE BCS 
FO2E A9 10 LDA 
FOJ0 8D OE DO sTa 
F033 AD 99 02 LDA 
FOS6 60 04 DD 5Ta 
F039 AD 9A 02 LDA 
FOSC 8D 05 DD STA 
FOSF a9 81 LDA 
FO41 20 3B EF JSR 
F044 20 06 EF JSR 
FO47 ar ıl LDA 
F049 8D 0E DD STa 
FOAC 6N RIS 


s»02 
30297 
10297 
sEFTE 
SARA 
sEFD) 
sEFCD 


s9A 
40294 
A 

$F012 
02 
sDoJ1 
sF00D 
sF012 
s02Al 
us02 
sEerF2 
sDDO1 
SEFF9 
8D091 
0s02 
sDD01 
5DD01 
sF012 
IF006 
ns40 
60297 


+F028 
s029E 


0290 
sF9La 
#029E 


s9E 
Bra ,Y 
s02A1 
A 
sFO4C 
ns10 
sDDOE 
50299 
3DD04 
5029 
$DD05 
us8l 
sEFIB 
3EFO6 
asıı 
$DDOE 


KAUTERETEBGUSSRTTERREUBUBBUNE 


Rahaen-Fehler 


Status setzen 


RS 232 CKOUT. Ausgabe auf RS 232 
Geratenumaer abspeichern 


Data Set Ready abfragen 
nein, dann Fehler 

keın Reauest To Send ? 
Nal-Flag 


aut Clear To Send warten 
Request To Send setzen 
auf Clear Ta Send warten 


Data Set Ready abfragen 


DSR Signal fehlt, Status setzen 


Ausgabe ın RS 232 Puffer 


Daten ın Puffer schreiben 


Tiaer tur Baud-Rate neu setzen 


Interrupt beı Unterlauf Tiaer A 


Start Tiner A, Force Load 


RS 232 CHKIN, Eingabe auf RS 232 setzen 
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FO&SD 85 99 STA 599 Ger stenunser 
FOaF AD 98: 02 LDA 20204 


F052 4A LSR A 

F053 90 28 BCC SFO7D 

F055 29 08 AND 0508 

F0S7 FO 24 BEO $F07D 

FOS5® A9 02 LDA #802 

FOSB 2C 01 DD BIT sDDOL Data Set Readv abtragen 
FOSE 10 AD BPL SFOOD neın 

F060 FO 22 BEO #F084 

FO62 AD Al 02 LDA 802AL 

F065 aA LSR A 

FO66b BO FA BCS CF082 

F068 AD 01 DD LDA #DD01 

FObB 29 FD AND &8FD Reauest To Send 


FO&D 8D 01 DD STA sDDyvL 
FO70 AD 01 DD LDA 50901 


F073 29 04 AND 2808 Data Terainal Ready 
F075 FO F9 BEO #F070 neın, „arten 

FO77 AI 90 LDA #590 

F079 18 eıe 


FO7A ac 5b ER InP SEFIB 
Fo7D AD Al 02 LDA #02R1 


FO8Nn 297 12 AND #s12 

FOB2 Fo FS BEO $F077 

F084 18 cıc 

FO85 60 RTS 

LELLTETELTESTTIETIIERIEI IT ERT GET von RS 232 

FO8& AD 97 02 LDA 80297 Status 

F089 AC 9C 02  LDY 8029C Pufterzeiger 

FOBC cc 9B 02 CPY 30258 gleich 

FOBF FO 0B BEO sFO9IC Pufter leer ”° 

F091 29 F7 AND asF7 

F095 aD 97 02 STA 50297 in Status loschen 
FO9& BI F? LDA (#FT),Y Byte aus Putfer holen 
F098 EE 9C 02 INC s925C Pufferzeiger erhöhen 
FO9IB 60 RTS 

FOSC 099 08 ORA #808 Pufter leer 

FOsE sh 9702 STA 30297 Status setzen 

FOAI AI 00 LDA #800 Null übergeben 

FOAS 60 RTS 

LISELENEZESTETTIEIIT ZIERT TS ZT RS 232 

FOA& 48 PHA 

FOAS AD AI 02 LDda 802A1 Flag gesetrt 

FOAB Fo ul BED $FOBB nein, dann #ertig 
FORA AD A1 92 LDA $02A1 

FOAD 29 03 AND 6303 

FOAF Do F® BNE $FOAA auf Bıt O0 und I warten 
FOBI a9 10 LDA 8310 

FOBS BD GD DD STA sDDOD Interrupt über ‘Flag '-Leitung 
FOBb A9 00 LDA 8800 

FOB8 8D Al 02 STA 802A1 Flag zurücksetzen 
FOBB 68 PLA 

FOBC 60 RTS 


AuaeTehaRsasa seen Systenmaeldungen 
FOBD OD 49 2F 4F 20 45 52 4F i/o error # 
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FOC& 52 20 A3 

Foc® 00 53 45 41 52 43 48 49 
FoDI #E 37 AO 

FOD4 a6 &F 52 AO 

FODB oD 50 52 45 53 53 20 50 
F9D9 ac 81 59 20 4F 4E 20 54 
FODB 31 50 65 

FOEB sn 52 45 53 53 20 52 45 
FOFS a3 3F 52 44 20 26 20 50 
FOFB ac 41 59 20 4F 4E 20 54 
F1L93 41 50 C5 

FtO06 9D ac AF 41 44 49 4E C7 
FIOE 0D 53 41 56 49 4E 47 AO 
Fild 90 5& 45 52 49 46 59 49 
FILE 4E (7 

F120 0D 46 AF 55 4E 44 AO 
F127 0D 4F 4B 8D 
ILEEZETETTETETRERTIUTTIEEREET 
F12B 24 9D BIT 89D 

F12D 10 00 BPL SFISC 
FI2F B? BD FO LDA $FOBD,Y 
F132 98 PHP 

F153 27 78 AND 087F 
F135 20 D2 FF JSR $FFD2 
F138 cR INY 

F139 28 PLP 

FiSA 10 FJ BPL $FI2F 
FiSC t8 cıLc 

F13D 60 RTS 

[LIES ZEITERERTERESEZ III ES 
FLJE a5 99 LDA #997 

F140 00 08 BNE #F14A 
F142 AS Ch LDA Sch 

F144 Fo OF BEO #F155 
Fi46 78 Sel 

F147 ac B4 ES JnP sESB4 
FI4A (902 CHP 9802 
FiAC DO 18 BNE $FI6& 
FI4E 84 97 STY 897 

F150 20 86 FO JSR $F086 
F153 Aa 97 LDdY $97 

F155 18 CLC 

F156 60 RTS 

LIESS ESTTIEREIESTEEEETEETE 
F157 AS 99 LDA 599 

F159 D0 08 BNE $Fild4 
Fi5B AS DS LDA $D3 

F1SD 85 CA STA sCA 

FISF a5 D6 LDA $D6 

Fi6l 85 C9 STA #C9 

F163 °C 32 E6 JnP 66632 
Fidb c903 CHP 8803 
F168 DO 09 BNE $F173 
PÜRERURERETSETESTEREEDEITRRE 
F16A 85 00 STA *DO 

FiöC AS D5 LDA $D5 


searching 
tor 


press play on tape 


öress record %& play on tape 


loadıng 
savıng 
verifying 


tound 
ok 


Sytenaeldungen ausgeben 
Dırekt-Modus Flag 

Prograna, dann uberspringen 
Oftset der Meldung ın Y 

Bit 7 löschen 


ausgeben 


noch weitere Buchstaben ? 


GETIN 
Eingabegerat 


Anzahl der Zeichen ıa Tastaturpuffer 
kein Zeichen ? 


leichen aus Tastaturpuffer holen 
nicht RS 232, dann zur BASIN-Routine 


Get von RS 232 


BASIN Eingabe eines Zeıchens 
Gerätenuaner 

nicht Tastatur ”? 
Cursorposition 

für Tastatureingabe setzen 


Eıngabe von Bildschira 


von Bildschıra 
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Fi6E 85 C8 STA sCB 
Fi7O A032 E6 JMP SE&32 
Fi73 BO 38 BCS SFIAD 
F175  C9 02 CHP #502 
FITT FO SF BEO SFIBB 
EEE KZEZZELEZZZEE EZ EI ZTIE ZI ZIG 
F17T9 8a 97 STL 397 
FL7B 20 99 FL JSR SF199 
FITE BO 16 BCS $F196 
Fi80 48 PHA 

Fi81 20 99 FI JSR SF199 
FiB4 BO 0D BCS sF193 
FiB6 DO 05 BNE $FLBD 
FIB8 A940 LDA 8640 
Fi8A 20 IC FE JSR SFEIC 
FIBD C6 Ab DEC a6 
FIBF  A& 97 LDx 697 
FI91 68 PLA 

F192 60 RTS 

FI93 AA Tax 

F19% 68 PLA 

F195 8A TXa 

Fl9& Ab 97 LDx 597 
FISB 60 ARTS 
AEEKEZZEITEZZZEZEZEHDE EEE ZEN ZZ 
F199 20 0D FB  JSR $FB0D 
Fi19C DO 0B BNE SF1A9 
FIRE 20 M1 FB JSR $FBAI 
FlAl BO Il BCS $FIBa 
FlA3 A900 LDA #500 
FiAS 85 As 5TA sA6 
FIAT FO FO BER $F199 
FIA9 Bi B2 LDA (5B2),Y 
FIAB 18 CeLc 

FIAT 60 RTS 

FIAD AS 90 LDA 590 
FIAF FO 04 BEQ $F185 
FIBl  A9 0D LDA #50D 
FiB3 18 cLc 

FiB& 60 RTS 
ALZERZZZELZZERZZZEZTZZZ TEE ZT 
FiBS AU IS EE  JNP SEEIZ 
AALZELZZEZZSZZEZZEE ZEIT ZEIT ZT 
FIBB 20 4E Ft JSR SFIME 
FIBB BO F7 BCS sF1BA 
FiBD  C® 00 CMHP 8300 
FIBF DO F2 BNE SF1B3 
Fit AD 97 02 LDA 50297 
FIC4 29 60 AND 1560 
FiC6 DO E9 BNE $FIBI 
FICB FO EE BEQ $FIBB 
ALEZEZTTZEZERETZERTZIE ZZ ETEIZTTG 
FICA 48 PHA 

FICB AS 9A LDA 89a 
FICD  C9 03 CHP 1803 


von IEC-Bus 


vom Band 
X-Register nerken 
eın Zeıchen voa Band holen 


eın Zeıchen von Band holen 
Fehler ° 

letzes Zeıchen ? 

EOF 

Status setzen 

Bandpuffer Zeıger ernıedrigen 
X-Register zurückholen 


Fehlernusser nach X 
Zeichen zurückholen 
Fehlernuaaner in Akku 
X-Regıster zuruckholen 


ein Zeichen von Band holen 
Bandpuffer Zeiger erhöhen 

noch Zeichen ia Puffer 

nein, nachsten Block von Band holen 
STOP-Taste, dann Abbruch 


Puftferzeiger auf null, Zeichen holen 


Zleıchen aus Puffer lesen 


Status testen 
ok 
"CR' Kode ausgeben 


lEC-Eingabe 
ein Byte von IEC-Bus holen 


RS 232 Eingabe 

ein Byte von RS 232 holen 
Fehler ? 

Nullbyte ? 

nein, dann ok 

Status 

fehlt DSR ? 

3a, CR’ zurückgeben 

nein, neuer Versuch 


BSOUT Ausgabe eınes Zeichens 


Gerätenuaser fur Ausgabe 
Bildschire ? 


250 


FICR Do 94 BNE $F1D5 
FiDi 68 PLA 

F1D2 4C 16 E7 JMP sETLE 
F1DS 20 04 BCC $FtDB 
F1D7 68 PLA 

F1D8B 4C DD ED JMP sEDDD 
FiDB 4A LSR A 
FiDC 68 PLA 

F1DD 85 9E STA #9E 
FiDF 8A TIA 

FIEO 48 PHA 

FIEI 98 TYA 

FIE2 48 PHA 

FIES 90 25 BCC $F208 
FIES 20 0D FB JSR $F80D 
FIEB DO 0E BNE $FIFB 
FIEA 20 644 FR JSR 6F864 
FIED BO 0E BCS $FIAFD 
FIEF A9 02 LDA 4802 
FIFI a0 00 LDY 8800 
FiIFS 91 B2 STAa (#82) ,Y 
FIFS c8 INY 

FIF6 84 Ab STY sAs 
FIFR AS 9E LDA $9E 
FIFA 91 B2 STA (6B2),Y 
FIFC 18 cLc 

FIFD 68 PLA 

FIFE AB TAaY 

FiIFF 68 PLA 

F200 AA TAX 

F201 AS 9E LDA SIE 
F203 90 02 BCC #F207 
F205 A9 00 LDA 0800 
F207 60 RTS 
IELITZIETEEITETERIERZETZEIERTT 
F208 20 17 FO JSR $F017 
F20B ac FC FI JNP sFIFC 
ALITTEZETTTERETEIZUTLIETITEIT 
F2OE 20 0F FJ JSR #FJOF 
F2ıl FO 03 BEQ $F21& 
F213 4c 01 F7 JMmP 6F701 
F21& 20 IF FJ JSR $FSIF 
F219 AS BA LDA #HA 
F21B FO 16 BEQ $F233 
F21D c9 03 CHP 4803 
FZIF Fo 12 BEQ $F253 
F221 Bo 14 BCS #F237 
F225 c9 02 CAP 8802 
F225 Do 03 BNE $F22A 
F227 ac AD FO JRP $FOAD 
[EEEEEEIIIEETISEIEETEESE TEE 
F22A Ab BP? LDx #B9 
F22C EO 60 CPX 0360 
F22E FO 03 BEQ $F233 
F230 4 0A FT JMP SF70A 
F23J 85 99 STA #99 
F235 18 cLe 


nein 


eın Zeichen auf Bıldschira ausgeben 


ein Byte auf IEC-Bus ausgeden 


auszugebendes Zeichen serken 


RS 232 Ausgabe 

Bandpuffer Zeıger erhöhen 
Puffer voll ? 

Pufter auf Band schreiben 
STOP-Taste, dann Abbruch 
Kontrollbyte für Datenblock 


in Puffer schreiben 
Pufferzeiger erhöhen und serken 


leichen in Puffer schreiben 


Teichen zurückholen 
ok ? 
Flag fur 'STOP-Taste gedrückt 


RS 232 Ausgabe 
ein Zeıchen in RS 232 Pufter schreiben 


CHKIN Eingabegerät setzen 
sucht logische Fılenunaer 
gefunden ? 

“file not open’ 

setzt Fileparaneter 
Gerätenumaer 

0, Tastatur 


3, Bildschira 

IEC-Bus 

RS 232 ? 

nein, dann Band 

ja 

Band als Eingabegerät setzen 
Sekundäradresse 

null ? 


“not ımput file’ 
Gerätenusser für Ausgabe 
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F236 &0 RTS 


F237 AA TAX 

F258 20 09 ED JSR #EDOF TALK senden 

F23B AS 89 LDA $B9 Sekundaradresse 

F25D 10 06 BPL sSF285 

FZSF 20 CC ED JSR sEDCE wartet auf Tabt-Sıgnal 
F242 sc 48 F2 JMP 3F228 

F245 20 C7 ED JSR #E0C7 Serundaradresse fur TALK senden 
F248 BA Txa 

F249 23 9% BIT 89% Status 

F24B 10 E& BPL $F233 0r ° 

F24D *C 07 F7 JNP #F707 devıce not present’ 


LAEIZ ER EZ ZZ ZEESEZENZERZE ZZ ZEN CKOUT Ausgabegerat setzen 


F250 20 OF F3 JSR SFIOF sucht logısche Fılenunser 

F253 Fo 03 SEO sF258 geiunden 

F255 “C 01 FT JMP SF701 "4ıle not onen’ 

F258 20 IF F3J JSR $F3IF setzt Fıleparaneter 

F25B AS BA LDA sBn Gerätenuaaer 

F25D DO 03 BNE $F26? ungleich null ? 

F25F 4C 00 FF? JMP 6F70D "not input Fıle' 

F262 c9 03 CmP 9503 Bıldschrıa ? 

F264 FO OF BEQ $F275 ,a 

F266 BO 11 BCS sF279 lEC-Bus 

F248 C9 02 cnP 8802 RS 232 ? 

F26A DO 03 BNE SF26F 

F26C 4C Ei EF JMP sEFEL Ja 

LASER TEITIEZEEZEIT IST EETZERE Band als Ausgabegerat setzen 
F26F Ab B9 LDX 5659 Sekundaradresse 

77 EO 80 CPX 0860 null ? 

F273 FO EA BEQ $F25SF Bandtile zua lesen, 'not output File‘ 
F275 85 9A STA 9A Nuaaer des Ausgabegeräts setzen 
F277 18 cıLc 

F27B 80 RTS 


KLZELTETEIELTITERTEIEEEETEETT Ausgabe auf TEC-Bus legen 
F279 AA Tax 


F2TA 20 OC ED JSR SEDOC LISTEN senden 

F27D AS BI LDA 389 Sekundaradresse 

FZ?F 10 05 BPL sF286 

F2B1 20 BE ED JSR $sEDBE ATN zurücksetzen 

F284 DO 03 BNE $F289 

F286 20 B9 ED JSR sEDBF Sekundaradresse für LISTEN senden 
F289 8A Tıa 

F28A 24 90 BIT 890 Status 

F2BC 10 E7 BPL $F275 Ok 

F28E 46 07 F7 JMP 6F707 "device not present 
LIELZETEITESTIEITEITTIIIETTT CLOSE logische Fıilenunaer in A 
F291 20 14 FJ JSR 8F314 sucht logısche Filenuaser 

r294 ro 02 BEQ $F298 

F296 18 CLE File nıcht vorhanden, dann fertıg 
F297 60 RTS 

F298 20 IF FJ JSR #FSIF Fileparaaeter setzen 

F2?B 8A Tıa 

F29C 48 PHA 

F29D AS BA LDA $BA Geräteadresse 

F2#F FO 50 BEQ SF2F1 Tastatur ? 

F2AI c9 03 CHP #503 
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F2AZ FO AC BEQ sFZFI 
F2AS 89 47 BC5 #F2EE 
F2A7 t9 02 CHP 8802 
F2A9 D5 ıD BNE SF2C8 


ÄEIEZEZEZZEITZEUTZEEZETZEITE EZ 


FZAB 68 PLA 


FZAC 20 F2 F2 JSR SF2F2 
F2AF 20 83 F4 JSR 8F485 
F2B2 20 27 FE JSR $FE27 
F2BS AS FB LDA #F8 
F28B7 Fo 01 BEQ #sF2BA 
F2B? ce INY 

FZBA AS FA da $FA 
F2BC Fo ol BEQ £F2BF 
F2BE cB INY 

FZBF AI 00 LDA 8500 
F2C1 85 FB STA sF8 
F2CS 85 FA STA $FA 
F2CS 4ıc 7D Fa JMP sF470 
[ENEEEUZERHERZELZERTETTIER ST IT 
r2C8 AS 89 LDA #89 
F2CA 29 0F AND ®s0F 
F2CC FO 23 BEO sF2FI 
F2CE 20 DO F7 JSR #F7DO 
F2Di A9 09 LDA #809 
F2D3 >8 SEC 


F2D4 20 DD Fi JSR #F1DD 
F2D7 20 64 FB JSR #FB64 


F2DA 99.04 BCC SF2EO 
F2DC 68 PLA 

F2DD A? 00 LDA 4800 
F2DF 60 RTS 

F2EN AS B9 LDA #B# 
F2E2 CI 62 CHP 0862 
FZE& Do 0B BnE $F2FI 
F2E& A905 LDA 8605 


F2EB 20 6A F7 JSR SF76A 
F2EB ac Fı F2 JMP $F2FI 


FZEE 20 42 F& JSR 3F642 
F2FI 68 PLA 

F2FZ aa TAX 

F2FS C6 98 DEC #98 
F2F5 EA 98 CPX 598 
F2F7 Fo 14 BEQ sFSOD 
F2F9 Aa 98 LDY #98 


FZFB B9 59 02 LDA 80259,Y7 
FZFE sD 59 02 STA #0259,X 
F301 89 63 02 LDA 80253,Y 
F304 9D 853 02 STA 60263,X 
F397 B9 &D 02 LDA 8026D,Y 
FIOA 9D &D 92 STA $0260,X 


F30D 18 ELC 

FIOE 60 RTS 
ALLEEEEZZERETETTTELEZEI DENT 
FIOF AI 00 LDA #800 
FS11 85 90 STA 890 
FS13 8A TIA 


Bildschira ? 

IEC ? 

RS 232 ? 

Band 

RS 232 Fıle schließen 
Fileeintrag ın Tabelle löschen 
ClAs fur 1/0 rücksetzen 


Meaory-Top holen 
Eıngabepuffer 


Ausgabepufter 


Puffer freıgeben 
Memory Top neu setzen 


Band File schlıeßen 
Sekundäradresse 


File zue Lesen ? 
Band-Puffer Startadresse holen 


Putfer aut Band schreiben 


Serundäradresse 
gleich Z 


Kontrollbyte für EOT-Header 
Block auf Band schreiben 


1EC-File schließen 


Anzahl der offenen Fıles erniedrigen 


gleich null, dann fertıg 


Fıleparaneter-Tabelle aufschließen 


sucht logische Filenuaner (in X) 


Status löschen 
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F314 A6 98 Ldı $96 
FJ1E ca DEX 

F317 30 15 BRI SFI2E 
FJ19 DD 59 02 CHP 80259,X 
FSIC Do Fa BNE $FS16 
FSIE 60 RTS 
LEXTEEZTELTREELEELEITIITERT ES 
ESAF BD 59 02 LDA 80259,X 
F322 85 BB STA sB6 
F324 BD #3 02 LDA 50263,1 
F327 85 BA STA $BA 
F329 BD 4D 02 LDA 5026D,X 
FS2C 85 B9 STA $B9 
FS2E 60 RTS 
LLLTTEITEITEEITERTTI EI TEIETT 
FJ2F AF 00 LDA #500 
F351 85 98 STA #98 
LIESS TERSERETEI TEEN 
F333 A2 03 LDI #603 
F335 Es 9A CPX KIA 
F337 80 03 BCS $F3ISC 
F3S3? 20 FE ED JSR $EDFE 
F3JC E& 99 CPX 399 
FSSE B0 03 BC5 sF3&3 
F340 20 EF ED J5R $EDEF 
F345 B6 9A STX 89& 
FS45 AF 00 LDA #800 
F347 85 99 STAa 599 
F349 60 RTS 
LITELEREFEIETTEIZEITEFTTTT ET 
FIAA Ab BE LDx sBB 
FSSC D92 03 BNE sF3S51 
FI4E ac 0A FT JKP SF7OA 
F3S1 20 OF F3 JSR sFSOF 
F334 Do 03 BNE 4F359 
F356& ac FE Fb JMP sFörE 
F359 Ab 96 LDX 898 
FS5B EO 0A CPx 880A 
F3ISD 90 03 BCC #F362 
F3SSF ac FB Fb JMP s$F&FB 
F362 Eö 98 INC #98 
F364 AS B6 LDA #B8 
F36& 90 59 02 STA #0259,% 
F369 AS 89 LDA 669 
F3&B 09 60 ORA 8460 
F36D 85 89 STA 589 
FS&F 9D 6D 02 STA #026D,X 
F372 AS BA LDA $BA 
F374 9D 63 02 STA 80263, X 
F377 FO SA BEQ SFSD3 
F379 c9 03 cnP 8803 
FSTB FO 56 BEQ SFSDS 
F37D 90 05 BCC $F384 
FSTF 20 D5 FS JSR #FSD5 
F382 90 af BCC #F3D3 
F384 c9 02 CHP 08502 


Anzahl der offenen Files 


sucht Eintrag im Tabelle 


setzt Fıleparaneter 
logische Fılenunaer 
Geräteadresse 


Sekundäradresse 


CLALL schließt alle Ein-/Ausgabe Kanäle 
Anzahl der offenen Fıles gleich null 
CLRCH schließt aktiven 1/0-Kanal 


Nummer des Ausgabegeräts 
kleiner als 3 

1EC, UNLISTEN senden 

Nuaner des Eingabegeräts 
kleiner als 3 

lEC, UNTALK senden 

Ausgabe wıeder auf Bildschirm 


Eıngabe nieder von Tastatur 


OPEN 

Filenunner 

ungleich null 

“not input fıle’ (72) 

sucht logische Filenunner 

nicht gefunden, kann neu angelegt werden 
‘4ıle open‘ 

Anzahl der offenen Files 

ait 10 vergleichen 


"too aany files’ 
Anzahl erhöhen 
logische Filenuaner 


Sekundäradresse 


Gerätenuaner 

in die entsprechenden Tabellen schreiben 
Tastatur ? 

Bildschira 

File auf IEC-Bus eröffnen 


Band ? 
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FIB6 
F388 
F3BB 
F3BE 
F390 
F393 
F395 
F397 
F399 
F3IC 
FI9E 
F3AI 
FIAS 
FSAS 
FSAB 
FSAA 
FSAC 
FJAF 
FSBZ 
F3B4 


FSB& 


F5B8 
FSBR 
FSBD 
FSBF 
F3C2 
FSCA 
FJC6 
F5CB 
FICA 
FICC 
FICE 
F3D9 
F3Dl 
F3D3 
F3Da 


sF3BB 
#F409 
$E7D0 
86393 
$F713 
sBF 
usor 
$F3B8 
sF817 
sF3D4 
$ESAF 
sB7 
sFSAF 
sFTEA 
sF3c2 
sE3D4 
sF704 
sF72C 
sF3D4 
sF3C2 
sFJAC 
sF038 
sF3D8 
“us04 
sF76A 
nsBF 
sB3 
060 
#F3DL 
"00 
“s02 
(862) ‚Y 


sA6 


ÄESEZZEZ ZZ ZIEL ZZZSZ ZEIT 


F3D5 
FSD? 
F3DI 
F3DB 
FSDD 
FIDF 
FJEI 
FSEI 
FJEb 
F3EB 
FSEA 
FSED 
FSEF 
FSFI 
FSFZ 
FSFS3 
FIF6 
FJFB 
FIFA 
FJFC 
FIFE 
FA0l 


Do 03 BNE 
46 09 F& JMP 
20 00 F7 JSR 
BO 03 BC5 
4C 13 F7 Jnp 
AS 59 LDA 
29 OF AND 
Do IF BNE 
20 17 FB JSR 
BO 36 BCS 
20 AF FS JSR 
AS B7 LDA 
FO 0A BEQ 
20 EA F? JER 
9018 BEC 
FO 28 BEQ 
4C 04 FT JnP 
20 2C F7? JSR 
FO 20 BEQ 
99 .0C BCC 
Bo F3 BCS 
20 38 F8 JSR 
B0 17 8C5 
A704 LDA 
20 6A F7 JSR 
A9 BF LDA 
Aa B® LDY 
Co &0 cPY 
FO 97 BEO 
AO 00 LDY 
a9 02 LDA 
91 82 STA 
98 TYA 
B5 Ad STA 
18 cLc 
60 RTS 
AS 89 LDA 
30 FA BAI 
Aa B7 LDY 
FO F& BEQ 
A9 00 LDA 
85 90 STA 
AS BA LDA 
29 O9C ED JSR 
a3 89 LDA 
09 FO ORA 
20 B9 ED JSR 
a5 90 LDA 
10 05 BPL 
68 PLA 
68 PLA 
AC 07 F7 INP 
as B7 LDA 
FO 0C BEQ 
AO 00 LDY 
Bi BB LDA 
20 DD ED JSR 
ca InY 


s89 
sF3D3 
87 
$F303 
800 
«0 
$BA 
sEDOC 
359 
“sro 
sEDBI 
90 
#FIFb 


#F707 
*B7 
6FA06 
0,00 
($BB) ,Y 
sEDDO 


nein 
RS 232 open 
Bandpufter Startadresse holen 


“illegal device nusber’ 
Sekundäradresse 


ungleich null dann schreiben 
wartet auf Play-Taste 
STOP-Taste gedrückt ? 
"searching’ 1’for nase’) ausgeben 
Lange des Fılenanens 

keın Filenane, dann weiter 
sucht gewünschen Bandheader 
gefunden 

ok 

EOT, ‘file not found’ ausgeben 
nächsten Bandheader suchen 

EOT, Fehler 

gefunden 

PRG-File, weiter suchen 

wartet auf Record & Play Taste 
STOP-Taste, dann Abbruch 
Kontrollbyte für Datenheader 
Header auf Band schreiben 
leiger auf Ende des Bandputfers 
Sekundäradresse 


gleich nuli, dann weiter 


Kontrollbyte für Datenblock 
in Bandpuffer schreiben 


leiger in Bandputfer 


File auf IEC-Bus eröffnen 
Sekundäradresse 


Länge des Filenaaens 
gleich null, dann fertig 


Status löschen 
Gerätaadressse 
LISTEN 
Sekundäaradresse 


senden 


Status testen 
ok 


“device not present’ 
Länge des Filenaaens 


Filenaaen 
auf IEC-Bus ausgeben 
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F402 
F404 
F&06 


LETEEREETELZEISEIEIET EEE TZ IE 


F409 
FAOC 
FAOF 
Fell 
Fa13 
F415 
F418 
F419 
F41B 
F41D 
F&20 
F423 
F426 
F428 
F32A 
F&2B 
F&2C 
FAZF 
F&451 
Fa34 
F437 
FESA 
Fa3D 
Faan 
F44% 
F44& 
F449 
F44A 
F4AD 
F450 
Fa5ı 
F453 
F456 
F457 
F459 
FASc 
FASF 
F462 
F465 
F468B 
F&6B 
FA6D 
Fäbr 
F479 
F472 
F474 
FA76 
F47B 
F479 
FATB 
FA7D 
F4TE 
F480 


Ca 
00 
ac 


20 
BE 
c4 
Fo 
Bl 
99 
ce 
co 
D9 
20 
BE 
AD 
29 
Fo 
0A 
AA 
AD 
00 
BC 
BD 
AL 
SC 
BD 
8C 
8D 
AD 
0A 
20 
AD 
aa 
0 
AD 
oA 
Bo 
29 
AD 
8D 


87 
Fö 
54 F& 


85 F4 
9702 
87 
oA 
BB 
93.02 


04 
F2 
4A Er 
98 02 
93 02 
(13 
tt 


Ab 02 
y9 

cı FE 
C0 FE 
a0 FA 
EB E& 
EA E& 
9% 02 
95 02 
9502 


2E FF 
94 02 


0 
01 DD 


03 
od FnD 
9B 02 
9°C 02 
9E 02 
9 02 
27 FE 
FB 
05 


FB 
F7 
FA 
95 


FA 
FF 


Fo 
2D FE 


cPY 
BNE 
InP 


JSR 
STY 
CcPY 
BER 
LDA 
STA 
INY 
CPY 
BNE 
JSR 
SsTı 
LDA 
AND 
BEI 
ASL 
TAX 
LDA 
BNE 
LDY 
LDA 
Inp 
LDY 
LDA 
SsTY 
STA 
LDA 
ASL 
JSR 
LDA 
LSR 
BCC 
LDA 
ASL 
BC5 
JS5R 
LD« 
STa 
LDA 
STA 
JSR 
LDA 
BNE 
DEY 
STY 
ST 
LDA 
BNE 
DEY 
sTY 
STrX 
SEC 
LDA 
JnP 


sB7 
sEJFC 
s3F654 


$F385 
s0297 
87 

sF41D 
(#BB) 
50293 


2404 
sFaor 
sEeF4A 
so2®e 
80295 
»s0orf 
sFach 
A 


s02R6 
sFA3A 
$FECI 
sFECO 
sF4a0 
sEsER 
sesEA 
50295 
50295 
50295 
A 
sFF2E 
50294 
A 
sFaSscl 
sDDo1 
A 
sFasc 
sF00D 
#029B 
3029C 
s029E 
#0290D 
sFE27 
sFB 
sF474 


#F8 
4F7 
sFA 
3F47D 


sFA 
*F9 


usFo 
sFE2D 


LIETZELEZZEIZZZZZEI ZEN ZZ SZ ZZ 


UNLISTEN, return 

RS 232 Open 

CIAs setzen 

RS 232 Status loschen 
Lange des "Fılenanens” 


die ersten 4 Zeıchen speichern 


Anzahl der Datenbits berechnen 
und speichern 

Kontrollregıster 

Bits fur Baud-rate ısolieren 

* 2 tur Tabelle 

NTSC-Versıon ? 

neın 

Baud-Rate, Hıgh #ur NTSC-Tıming 
Baud-Rate, Low 


Baud-Rate, Hıgh #ur PAL-Tıaıng 
Baud-Rate. Low 


speichern 


Kode für Baud-Rate ermitteln 


tehlt DSR ? 


neın 
Status für DSR setzen 


Pufterzeiger tur RS 232 Ein- und Ausgabe 


Meaory Top holen 
Eıngabepuffer bereits angelegt ? 


Zeiger fur RS 232 Eıngabepuffer 


Ausgabepuffer bereits angelegt ? 
Zeiger für RS 232 Ausgabepufter 
Flag setzen 

Meaary-Top neu setzen 


CiAs nach RS 272 rücksetzen 
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setzen 


Fa83 
FA85 
FABB 
FABA 
FaBD 
FARO 
F492 
F495 
F498 
FagA 
F490 


F49E 
FaAO 
F4A2 
FaAS 
FaA7 
FaA9 
FAAB 
FAAD 
FAAF 
F4B2 
FsBA 
F4B6 


FARB 
FABA 
FABC 
Far 
Facı 
Faca 
FaCa 
Fac8 
FACB 
FACD 
F4DO 
FAD2 
FADS 
FAD8 
FADA 
Fadc 
FaDD 
FADE 
F4EO 
FAE3 
F4ES 
F4E& 
FAEB 
FaEA 
FAEC 
FAEE 
FAFO 
FAF3 
FAFS 
FF? 
Far 
FAFC 


A? TF LDA #87F 
8D 00 DD STA sDDOD 
AI 06 LDA 8306 
8D 03 DD STA sDD93 
8D 01 DD STA #DDN1 
AI 04 LDA 2504 
OD on DD ORA 80000 
80 00 DD STA sDDO9 
AO 00 LDY #800 
ec A1 02 SsTY #02A1 
60 RTS 
AEZEZTZEZZUZEETTEETZEETTER ST 
8& CS STA 8C3 
84 C4 StY sc4a 
66 30 93 JNP (80530) 
85 93 STA 395 
A497 00 LDA #800 
85 90 STA #90 
a5 BA LDA $BA 
D9 03 BNE $F4B2 
3C 13 F7 JNP $F713 
C9 05 CHP 03503 
FO F? BEQ #FAAF 
90 TR BCC $F533 
IKEESZERZTTTUT SEITE EEE 
A4 B7 LDY #87 
D9 05 BNE $FABF 
4C 10 F7 JMP $F719 
A& 89 LDX $B9 
20 AF FS JSR SFSAF 
AI 60 LBA 4860 
85 B9 STA $B9 
20 DS F3 JSR $F3D5 
AS BA LDA #BA 
20 07 ED JSR SEDOI 
AS 89 LDA #89 
20 C7 ED JSR SEDC? 
20 13 EE JSR $EEIS 
85 AE STA sAE 
AS 90 LDA 890 
4A LSR A 
EL) LSR A 
Bn 50 BCS #F530 
20 13 EE JSR $EEIT 
85 AF STA $AF 
8A TXaA 
Do 08 BNE $SF4FO 
AS CS LDA sC3 
85 AE STA $AE 
AS C4 LDA $C4 
85 AF STA KAF 
20 D2 FS JSR $FSD2 
A9 FD LDA #sFD 
25 90 AND 690 
85 90 STA #90 
20 Ei FF JSR $FFEI 
D0 03 BNE #FS0L 
4C 33 Fb JMP SF63J 


FAFE 


IRQ's rücksetzen 
Bit I und 2 Ausgang 
PORT B Rıchtung 
PORT A Richtung 


Bit 2 = TXD 


NNI-Flag loschen 


LOAD - Routine 
Startadresse speichern 


JMP $F4AS LOAD-Vektor 
Load/Verify Flag 


Status löschen 
Gerate-Adresse 

ungleich null, dann weıter 
"illegal device nunber 
Bıldschirn ? 

Ja, Fehler 

kleıner 3, dann von Band 


lEC-Load 

Lange des Fılenamens 
ungleich null, dann ok 
“missing fılename' 
Sekundaradresse 
"searching tor filenane' 
Sekundaradresse null 


File auf IEC-Bus eroffnen 
Geratenusner 

TALK senden 
Sekundaradresse senden 
Byte von IEC-Bus holen 


als Startadresse lom speichern 
Status 


Tiae out, dann Fehler 
Startadresse high holen 
Sekundaradresse ungleich null ? 


nein, dann ab vorgegebener Adresse 
taden 


"loading'’/'verityıng’ ausgeben 
Tiae-out Bit löschen 
Stop-Taste abfragen 


nicht gedrückt, dann weıter 
File schließen 
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r501 20 13 EE JSR SEEIS Frogransapyte von Bus holen 
504 AA TAI 


FS05 a5 0 LDA 890 Status testen 

8507 4A LSR A 

FS508 aA LSR A 

F509 B0 €8 BCS sSFars Fehler, dann abbrechen 

F508 8A Tıa 

FSOC Aa 95 LDY 893 Load/verı#ty Flag testen 

FSCE Fo 0C BED sF5ıc gleıch null, dann LOAD 

FS10 Ad 00 LDY a500 

FS12 DI AE CHP (SAE),Y Verifv. Vergleich 

FSI& FO 08 BEO SFSIE 

F516 A9 10 LDA ası0 uagleıch, dann Status setzen 
FS18 20 IC FE JSR KFEIC Status setzen 

F5IB  2C .BYTE s2C 

FSIC 1 AE STA (sAE),Y Byte absoeıchern 

FSIE Es AE INC $AE 

F520 Do 02 BNE $F523 Adresse erhöhen 

F522 Es AF INC sar 

F524 24 90 BIT #90 tatus 

FS26 50 CB BVC SFaF5 noch keın EOF ? 

F528 20 EF ED JSR SEDER UNTALK senden 

F52B 20 &2 F& JSR SF682 File schliessen 

FS2E 0797 BCC sF5As kein Fehler ? 

FSJO 46 04 F7 JNP SF705 "sile not Found‘ 
LAEZZEEZZEZZZZZZZZEIZ ZZ EZ Z ZZ ZT 

FSS3 aA L5R A Serätenuaner 

FS3S Bo 05 BCS 3F539 eıns (Band) , dann weiter 
FSJI& °C 13 F7 JmP $F713 K&S 232, 'ıllegal device nunber’ 
FS3P# 20 00 F?7_ JSR SF7DO Bandoutfer Startadresse holen 
FSSt 60 03 BCS sF5aı 

FS3E ac 13 F7 SMP sF713 "ıllegal device number‘ 

F541 20 IT F8 JSR $F817 wartet auf Play-Taste 

F544 BO 68 BCS SFSAE STOP-Taste, dann Abbruch 

F546 20 AF FS JSR SFSAF “searching‘ ( "tor nane') ausgeben 
F549 AS 87 LDA 8#B7 Länge des Filenanens 

#54B FO 09 BEG 8#F55& gleich 0, dann weiter 

F34D 20 EA F7 JSR 8F7EA gewünschten Bandheader suchen 
F550 90 08 6CC sF55D getunden 

F352 Fo SA BEQ sFSAE “bbruch 

F554 BO DA BCS sF330 EOT, dann '#ile not found’ 
FS56 20 2C F7 JSR SF 72C nachsten Bandheader suchen 
F559 FO 53 BEQ SFSAE Abbruch 

FSSB BO D3 BCS 8F330 "EOT', dann "file not found’ 
FSSsD AS 90 LDA 890 Status holen 

FSSF 29 10 AND #610 EOF-Bit ausblenden 

F561 38 E13 

F562 DO 4A BNE $FSAE anderer fehler ? 

FS564 EO 01 CPx #501 Header-Typ 1 = BASIC-Prograna (verschieblich) 
F566 FO 1] BEQ $F379 

F568 EO 03 CPX 4803 3 = Maschinen-Programan (absolut) 
FS6A Do DD BNE $F549 

FS56C Ao 01 LDY as01 

FS6E 8ı B2 LDA (882) ,Y Startadresse low 

F570 85 C3 STA sC3 

F572 c8 INY 

FS75 Bi B2 LDA (5B2),Y Startadresse high 

F575 85 C& STAa sC4 

F577 BO 04 BCS #F57D 
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F579 a5 89 LDA #59 
F57B 00 EF BNE $#F56C 
FS7D AO 03 LDY 0803 
FS7F B1 B2 LDA (#82) ,Y 
FSBl AO 01 LDY ns01 
F583 Fi 82 SbEC (882),7 
F585 AA TAX 

FS06 Au 094 LDY 8504 
FS88 Bl 82 LDA (882) ,Y 
FSBA a0 02 LDY 4802 
FSBC Fi B2 SBC (582).Y 
FSBE AB TaY 

FSBF 18 cLc 

F590 BA TxaA 

FS91 65 C3 ADC $C3 
FS93 85 AE STA $AE 
FS95 8 TYA 

F596 65 C4 ADC $C4 
F598 85 AF STA sAr 
FSIA AS CZ LDdA 8C3 
FSIC 85 cı sTa sCcı 
FSIE a5 ca LDA 6C4 
FS5ao 85 C2 STA $C2 
FSA2 20 D2 F5 JSR #F5D2 
FSAS 20 3A FB JSR $F84A 
FSAA 24 .BYTE 824 
FSA9 18 cıLc 

FSAA Ab AE LDY sAE 
FSAC Aa AF LDY sAr 
FSAE 60 RTS 
ÄLEELZEZTERESTERERITTETEET ET 
FSAF AS 90 LDA 89D 
FSBi 10 IE BPL SFSDI 
FSB3 AO 0C LDY &80C 
FSBS 20 2F Fi JSR #F12F 
FSB AS B7 LDA $#B7 
FSBA FO 15 BEQ sFSD1 
FSBC A0 17 Loy 0817 
FSBE 20 2F Fi JSR SFLZF 
FSCc1 as B7 LDyY 867 
FSC3 Fo 0C BEQ sFSD1 
FSCS AO 00 LDY 8800 
FSC7 Bi BB LDA (8BB),Y 
FSC9 20 D2 FF JSR SFFD2 
FSCC ce INY 

FSCD C4 B7 CPY #87 
FSCF D0 F& BNE 8F5C7 
FS5D1 60 RTS 
MIAUETERERRARUTEBERRRABRRUETE 
FSD2 AO 49 LDY 0849 
E5D4 AS 93 LDA 893 
FSD6& Fo 02 BEQ #F5DA 
FSpe a0 59 LDY 3839 
FSDA 4C 2B Fi JNP $F12B 
IKKETLEEUTIEREIEEREERZEEIT II TE 
FS0D 86 AE STX $AE 
FSDF 84 AF STY sAF 


Sekundär-Adresse 
ungleich null, dann nicht verschieblich laden 


Endadresse aınus 


Startadresse 


gleıch Progranalange 


Progranalänge + Startadresse 


gleıch Endadresse 


Startadresse nach sC1/8C2 


"loading‘ / 'verıfying’ ausgeben 
Prograsa von Band laden 


Endadresse nach X/Y 


"searching’ {for filenaae) ausgeben 
Direkt-Modus testen 
nein, dann übergehen 
Offset für searching’ 
Meldung ausgeben 

Länge des Filenasens 
gleich null, dann fertig 
Offset für tor’ 

Meldung ausgeben 

Länge des Fılenanens 
gleich null, dann fertig 


Filenaaen holen 
und ausgeben 


"loading/verifying ausgeben 
Offset für "loading 
Load/Verity-Flag testen 
Load, dann ausgeben 

Oftset für "veritying' 
Meldung ausgeben 


SAVE - Routine 


Endadresse low 
. high 
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FSE1 AA TAX 

FSE2 B5 00 LDA 500,% 
FSES 85 Ci STA scı 
FSE& BS 01 LDA $01.X 
FSEB 85 C2 STA sc2 
FSEA &C 32.05 JMP 150352) 
FSED AS BA LDA BA 
FSEF DO 03 BNE KFSF4 
FSFL “ıC 13 F7 JMP SF713 
FSFA 9 03 CHP #805 
FSF& Fo F9 BEO sSFSfi 
FSFB 90 5F BCC 6F659 
LLTETETETEEETETEETTETITEITT TE 
FSFA a9 81 LDA A861 
FSFC 85 89 Sta #89 
FSFE As 87 LDY $B7 
F&00 D0 03 BNE 5F605 
F602 4C 10 F7 JmP sF710 
F605 20 DS FS JSR sF305 
F&08 20 OF Fö JSR SFoBF 
F&OR AS BA LDA #BA 
F60D 20 0C ED JSR SEDOL 
F&10 AS B9 LDA #69 
F6l2 20 B9 ED JSR sEDB® 
F615 ao 00 LDY »sC0 
F617 20 BE FB JSR $FBBE 
FblA AS AC LDA sAC 
Föic 20 DD ED JSR SEDDO 
FöiE AS AD LDA $AD 
F621 20 DD ED JSR $EDDD 
F624 20 DI FC JSR SFCDI 
F627 BO 16 BCS SFoSF 
F629 Bi AL LDA ($AC),Y 
F62B 20 DD ED JSR sEDDD 
Fö2E 20 EI FF J5R #FFEI 
F631l 00 07 BNE $F65A 
FbSS 20 42 F6 JSR SF642 
F636 AI 00 LDA #00 
F638 sa SEC 

F639 60 RTS 

F6JA 20 OB FC JSR SFCDB 
F63D D9 ES BNE sSF628 
FbsrF 20 FE ED JSR $EDFE 
F642 24 B9 BIT #89 
F644 30 ı1 BHI $F657 
Fbab AS BA LDA $BA 
F648 20 0C ED JSR sSEDOC 
F&sB a5 B9 LDA 389 
F64D 293 EF AND WSEr 
For 09 EO ORA MSEO 
F651 20 B? ED JSR $EDBI 
F654 20 FE ED JSR $EDFE 
F657 18 CLC 

F658 60 RTS 

F659 4A LSR A 
F&sA 80 03 BCS $F6SF 
F65C 4 13 F7 JmnP $F713 
F6SF 20 DD F? JSR 3F7D6 


Startadresse low 


Startadresse hıgh 
SAVE-Vektor, JMP SFSED 
Gerateacresse 


"illegal device nuaber 


Bildschirn, Fehler 
Band 


Speichern auf lEC-Bus 
Sekundar-Adresse I 
setzen 

Länae des Fılenanens 
ungleıch null, dann or 
“nıssıng Tılenane' 
Filenanen aut lEC-Bus 
"savıng ausgeben 
Geräteadresse 

LISTEN senden 
Sekundar-Adresse 

fur LISTEN senden 


Startadresse nach #AC/SAD 
Startadresse low 

senden 

und hıgkh 

senden 

Endadresse schon erreicht? 
Ja, dann tertıg 
Programabytes 

auf IEC-Bus ausgeben 
STOP-Taste abfragen 

nıcht gedruckt, dann weitermachen 
IEC-Bus Kanal schlıefen 


Flag setzen tur break’ Ausgabe 
laufende Adresse erhahen 
UNLISTEN senden 

Geräteadresse 


LISTEN senden 
Sekundär-Adresse 


Sekundär-Adresse ausgeben 
UNLISTEN senden 


Gerätenumaer / 2 

Band 

RS 232, "illegal device number 
Bandpuffer Startadresse holen 
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F662 
F664 
F667 
F669 
Fb6c 
F6sE 
F679 
F672 
F674 
F6T6 
F677 
FE7A 
F67C 
FA7F 
Fodt 
F6B3 
F6B5 
F&B7 
Fö6B9 
F6BC 
Fö68D 
F&BE 


voraanı 
Foßr 
F691 
F693 
F695 
F698 


LEZEZ ER 
F&9B 
F&9D 
Fo9F 
FeAl 
F6A3 
F6AS 
F6A7 
F6AB 
F&AA 
F6ALl 
FöAE 
F&BO 
F6B2 
F6B4 
F&B6& 
F6BB 
F&BA 
F6BC 
[21:13 
F6C2 
F6C4 
F6C5 
F6C7 
F&C9 
F&CC 
F6CF 
F&D2 
F&D4 
F6D7 


90 80 BCC #FSrl 
20 38 FA  JSR sF838 
BO 25 BCS KF69E 
20 BF F&  JSR sSF6BF 
a2 03 LDI 0803 
AS B9 LDA 3B9 
2901 AND #501 
09 02 BNE 6F676 
ad ol LDr 2901 
aA TXA 

2) aA F7  JSR SF76A 
80 ı7 305 sFeßE 
20 687 F8 JSR $SF867 
69 00 BES $FöBE 
a5 89 LDA 589 
29 02 AND #802 
FO 06 BEQ $F&68D 
A908 LDA 8605 
20 6A F7_ JSR $F76A 
24 .BYTE #24 
18 CLE 

60 RTS 
ÄEHEZERERZZEZZEIEZZERZZ 
a5 9D LDA #90 
19 FB BPL #F&BE 
a0 Si LDY #551 
20 2F Fl JSR SFIZF 
ac Ccı F5 JmP SFSCcı 
LELZEZEZZEERZ ZEIT ZU ENT 
A200 LDr 08500 
Es A? INC $A2 
00 06 BNE #F6A7 
Eö Al INC $Al 
DO 02 BNE EF6A7 
E6 AO INC $AO 
s8 SEC 

AS A2 LDA sA2 
E? D1 SBC 9501 
AS Al LDA sAl 
E9 1A SBC #81A 
AS AO LDA #A0 
E9 ar SBC »s4F 
90 06 BCC sF6BC 
86 AO STı #A0 
86 Al STı sAl 
B6 A2 STx sA2 
AD 0: DC LDA 8DC01 
CD 01 DC CNP $DCO1 
DO F& BNE $FABC 
AA TAX 

30 13 BMI $F6&DA 
A2 BD LDX @4BD 
BE 00 DE STX 60C00 
AE 01 DE LDX 8DCO1 
EC 01 DC CPX #DCO1 
Do Fa BNE #F6CC 
80 00 DC STA #DC0O 
EB INX 


"ıllegal device nuaber 

wartet auf Record 5 Play-Taste 

STOP, aann Abpruch 

"savıng naae’ ausgeben 

Header-Typ 3 = Maschınenprograaa (absolut) 
Sekundaradresse 

dıt 0 gesetzt (Il oder I 

Ja, dann Maschınenprograaa 

Keader-Typ I = BASIC-Prograas (verschieblich) 


reader auf Band schreiben 
Aussprung deı Stop-Taste 
Progrann auf Band schreiben 
Aussprung beı Stop-Taste 
Serundaradresse 

Bıt 1 gesetzt (2 oder ?) 
neın. dann fertıg 

EOT Kontrollbyte 

Block auf Band schreiben 


"saving’ ausgeben 
Dırekt-Modus ? 
nein, dann #fertıg 
Offset fur 'saving' 
Meldung ausgeben 
Filenanen ausgeden 


uDTIM Tine erhöhen 


Zeit erhohen 


Kıt Wert tür 24 h vergleichen 


kleiner, dann ok 


Zeit auf Null setzen 


Stop-Taste testen 
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F6D6 0 02 BNE $F6DC 


F&DA 85 1 STa 591 Flag tur Stoo-Taste 
F&De 60 RTS 

AEUuUSRaSTaTeRnatTeararı reed TIME holen 

F&DD 78 sel 

F6DE as a2 LDA $A2 

F6EO Ab Al LDr sAı 

F&E2 as a0 LDY 540 


URHEBER RaTEHRR RR TIME setzen 


F6EA 78 SEI 

F&ES 85 A2 SIR $A2 

F6E7 86 Al stı sAal 

F6EF 84 AO STY sAO 

F6EB 58 cLi 

FaEC 60 RTS 

IEKKZESTTSTIRTEZEITZEEIZZEI Stop-Taste anfragen 

FöED AS A LGA 591 Flag 

FoEr c9 Tr CHP us?7F auf kode fur Stop testen 
Fört D6 07 BNE SFEFA 

FörS 08 PHP 

Föor4 20 CC FF JSR SFFCC CLRCH 

FeF7 85 C& STA sCa Anzahl der gedruckten Tasten 
[2127 25 PLP 

FerA 80 RTS 


saaimaanetshertietrbıerhkiree Meldungen des Betriebssystens ausgeben 
FEFB A9 01 LdIA B801 


F6FD 2c .BYTE 827 

FörE A902 LDA #302 

F700 2C „BYTE 8s2C 

r701 A? 03 LDA #303 

F703 2C „BYTE s2C 

F704 AI 04 LDA 9504 

F706 2C „BYTE $s2C 

8707 a9 05 LDA 0505 

F709 2C „BYTE 82C 

F70A A9 06 LDA #506 

F70C  2C .BYTE s2C 

F70D 49 07 LDA #807 

F7OF 20 .BYTE s2C 

F719 A9 08 LDA #508 

F?12 2C .BYTE s2C 

F713 A969 LDA 8509 

F715 48 PHA Fehlernuaner aerken 
FTib 20 CC FF SSR SFFCC ELRCH 

FT19 AO 00 LDY 8500 

F71B 24 90 BIT 89D Flag #ur Error-Ausgabe testen 
r7rıD 50 0A BVC 38729 nicht gesetzt, dann übergehen 
FIIR 20 2F Fi JSR $F12F "1/0 ERROR ®‘ ausgeben 
FT22 68 PLA 

F723 48 PHA Fehlernunaer holen 
F724 09 30 DRA 8850 nach ASCII 

F726 20 D2 FF JSR SFFD2 und ausgeben 

FT297 68 PLA 

FT2A 38 SEC 

FT2B 60 RTS 
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BÜUESEBESRBURSDESERERREESARTE Prograan Header von Band lesen 


FT2C a5 93 LDA #93 Load/Veritfy Flag retten 
FT2E 48 PHA 

F72F 29 41 F8 JSR #F841 Block von Band lesen 
F732 68 PLA 

6733 85 93 STA 893 Load/Veri#y Flag zuruckholen 
F735 Bo 32 BCS $F769 Fehler, dann beenden 
6737 AO 00 LDY 4800 

F739 BI B2 LDa t882),Y Header-Typ testen 

F7JB 0905 CHP 4805 EOT ? 

F73D FO 2A BEQ $F769 

F7SF c9 0 CHP ns01 BASIC-Prograsa ? 

FTAI FO 08 BEO sF74B 

F743 [9 03 CHP 0803 Maschınen-Programa ”° 
F785 Fo 04 BEQ 5F74B 

6747 9 04 CHP 0504 Daten-Header ? 

FT39 Do Ei DNE SF72C nein 

F74B AA Tax 

FT7SC 24 9D BIT 390 Direkt-Modus ? 

F74E 109 17 BPL $F767 neın, dann weiter 

F750 AO 63 LDY 9563 

F752 20 2F Fi JSR $F12F "tound’ ausgeben 

F755 AN 95 LDY 8805 Otiset des Fılenaaens 
8757 Bı B2 LDA (#82) ,Y 

F759 20 D2 FF JSR SFFD2 Filenanen ausgeben 
F7SC c8 INY 

F75D co 15 cPY amı5 

FTSF DO F6 BNE 6F757 

F76l as Al LDA $AI Akku ait nıttelmertigen Tıae-Byte laden 
F763 20 EO E4 JSR SEAEO wartet auf Coasodore-Taste oder leıtschleife 
FT&b EA NnoP 

F767 18 cLc bei Fehler ıst C=l 

F768 88 DEY 

F769 60 ATS 

“aenanesunseennssuerasesauueee Header generieren und auf Band schreiben 
F76A 85 9E STA #9E Header -Typ 

F7&C 20 DO F7 JSR #F 700 Bandpufferadresse holen 
F7er 979 5E BCC $FTCR 

F7L AS Cc2 LDA $C2 

F77J 48 PHA Startadresse 

F774 a5 cı LDA sCı 

F77& 48 PHA und 

F777 AS AF LDA sAr 

F779 48 PHA Endadresse nerken 

F77A a5 AE LDA sAE 

FITC 48 PHA 

F7?D AO BF LDY @sBF Putferlange - I 

FITF A? 20 LDA 88320 

F781 91 B2 STA (#82) ,Y Bandpuffer loschen 

F783 88 DEY 

F784 00 FB BNE $F781 

F7B& a5 9E LDA $9E 

F788 91 B2 STA (882),Y Header-Typ 

F7OA c8 INY 

F78B AS cCı LDA $Cı 

F78D 91 B2 sta (882),Y Startadresse 

F78F ce INY 

F790 AS c2 LDA 6C2 

F792 91 B2 STA (#82) ,Y 
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F798 c8 InY 

F795 a5 AE LDA $AE 
F797 91 82 STA ($5B2).Y 
799 c8 INY 

FTSA AS AF LDA $AF 
F79C 91 682 STA (462) ,7 
F79E c8 INY 

F79F 88 9®F STiY SF 
FTAL AO 00 LDY 8300 
F7A3 8a 9E STY $3E 
F7AS As SE LDY $9E 
F7A7 t4 B7 CPY 5B7 
F7A9 FO 0C BEO sF7B7 
FTAB B1 BB LDA (SBB) ,Y 
F7AD Aa IF LDY 39F 
FTAF 9182 STA (sB2) ,Y 
F7BI E6 9E INC $9E 
F7BJ Es 9F INC 97 
F7B85 DO EE BNE $F?AS 
F7B7 20 D7 F7 JSR $F7D7 
F7BA a9 69 LDA 4869 
FTBC 5 AB STA SAB 
F7BE 20 68 F8 JSR SFB6B 
F7C1 AB TAY 

F7C2 68 PLA 

F7C3 85 AE STA SAE 
F?CS 68 PLA 

F7C6 85 AF STA sAr 
F7C8 68 PLA 

F7C9 85 Ci sta scı 
F7CB 68 PLA 

FICC 85 C2 STA sC2 
FTCE 98 TYA 

FICR 60 RIS 
LLITIIESTZEIEIEEIEETIE SITE 
F7DO Ab B2 LDX $B2 
F7D2 As B3 LDY 8B3 
F7D4 co 02 CPY 2502 
F7D6 60 RTS 
LIKEIKITTITETETEITIITERTSTET 
F7D7 20 D0 F7 JSR SF7DO 
FTDA BA TıA 

F7DB 85 Cı STA scı 
F7DD 18 cıLc 

F7DE 69 Co ADC N5CO 
F7EO 85 AE STA $AE 
F7E2 98 TYA 

F7ES 85 [2 STA $C2 
F7ES 69 00 ADC 18009 
FTET 85 AF STA sAF 
F7EI 60 RIS 
LETITESTEITEEEEEETETEEEEEZE 
FTEA 20 2C F7 JSR $F72C 
F7ED BO 1D BCS $F80C 
FIEF AO 05 LDY 8605 
F7FI 84 9F STY sIF 
FIFS3 AD 00 LDY #800 


Endadresse 


lahler fur Fılenasenlange 


aıt Lange vergleichen 
alle Buchstaben, 
Fılenamen holen 


ın Header schreınen 


Start- und Endadresse auf Bandpufter 


Cnecksuame fur Header bzw Datenblacr 
Block aut Band schreiben 


End- 


und 


Startadresse zuruckholen 


Bandputfer Startadresse holen 


Adresse kleiner #200 ? 


Bandpuffer-Adresse holen 


Startadresse = 


Endadresse = 


Bandheader nach Naaen suchen 
nächsten Bandheader suchen 


EOT, dann fertig 
Offset 
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dann weıter 


Start Bandpuffer 


Startadresse + Länge (192) 


fur Filenanen ia Header 


F7FS B4 9E STrY s9E läanler für Länge des Fılenaaens 


F7F7 c4 B7 CPY 387 aıt Lange des gesuchten Nasens vergleichen 
F7FF Fo 10 BED sF80B gleıch, dann gefunden 

F7FB Bi BE LDA (#BB),Y Buchstaben des Filenasens 

F?7FD As IF LDY s9F 

FIFF DI 62 CHP (882) ,7 aıt Filenasen ıa header vergleichen 
Fa0i DN E7 BNE #F7EA ungleich, dann nächsten Header testen 
FBu3 E6 9E INC #9E 

F805 Es 9F INC #9 Zähler erhohen 

F807 Aa 9E LDyY $9E 

F8097 DU EC BNE SF7F7 weitere Buchstaben vergleichen 
FBUB 18 CLC 

FBNC [7 RTS 

Balilehkertteneetrit eg Bandpufferzeiger erhohen 

F80D 20 D9 F7 JSR #F700 Bandpufieradresse holen 

FBIO  E6 Ab INC $A6 Zeiger erhohen 

Fel> As nd LDY sAo 

FE1S c)c09 CFY 88C9 aıt Maxiaalmert (192) vergleichen 
FElo 80 RTS 

[KLEE EINER TEEERTTETELELERT, Wartet auf Band-Taste 

F817 20 2E FB JSR SFBZE tragt Band-Taste ab 

F6IA Fo 1A BEQ 6FBJ6 gedrückt, dann fertıg 

FBIC AU IB LDY asıB Oflset für 'press play on tape’ 
FOLIE 23) SF Fi JSR SFI2F ausgeben 

FBiı 29 DO FB JSR #F8D0 testet auf STOP-Taste 

FB23 20 ZE F& JSR 6FB2E tragt Band-Taste ab 

F827 DO FB BNE #F821 

F629 AG 6A LDY a56A Offset tur ok’ 

FBIR sc ?2F Fi JnP sFI2F ausgeben 

KRoeahease ea ar Abfrage ob Band-Taste gedruckt 
FB2E AI 10 LDA #810 Bit 4 testen 

FB8SO 24 01 BIT 801 

F632 00 02 BNE #F836 

F834 24 01 BIT 801 

FBS6 18 CcLC ja, dann I=1, sonst Z=0 

F837 60 RTS 

AAELLZEZZZEZELZEZEEEZEELLEZZ Wartet auf Bandtaste für Schreiben 
F658 20 2E FB JSR sFB2E tragt Bandtaste ab ö 
F838 FO FI BEQ #F9J& gedrückt, dann fertig 

F83D AD 2E LDY #8s2E Ofiset für ‘press record & play on tape’ 
Fa3F Do DD BNE #FOIE neıter wie oben 


AELZETEZZITERZZER STIER NT Block vos Band lesen 


Fa41 A? 00 LDA 4800 

F843 85 90 STA #90 Status und 

F845 85 93 STAA 993 Verity-Flag löschen 
F847 20 D7 F7 JSR #F707 Bandpufteradresse holen 
LESE ESEEEER SERIES ERTIEERTTT) Prograna voa Band laden 
FB4A 20 17 FO JSR #FB17 wartet auf Play-Taste 
F84D 89 IF BCS sFB6GE STOP-Taste gedrückt ? 
FO4F 78 SEI 

F850 AT 00 LDA 0800 

F852 05 AA STA #AA 

F854 85 B4 STA #84 

Fej6 853 89 STA sB0 Arbeitspeicher für IRQ-Routine löschen 
F858 BS 9E STA #9E 
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F85A 85 9F STA $9F 
FBSC 85 STA 8°C 
FOSE A? 90 LDA 8890 
FB&0 A2 0E LDX @s0E 
F862 Do ıı BNE #F8675 
[KIELTETELTELTELER USER TTET EST 
F864 20 D7 F7 JSR 6F7D7 
FB67 a9 14 LDA 8814 
F869 85 AB STA sAB 
[LLERLZELERSERTERTTIETSER TEEN 
F86B 20 58 FB JSR $F858 
FB6E BO 6C BCS $SFBDC 
F870 78 sel 

re71 A9 82 LDA 0882 
F875 A2 08 LDY 8808 
F875 AO ?7F LDY n8s7F 
f8977 8C 0D DE STY sDCOD 
FB7A 80 0D DC STA sDCOD 
F87D aD 0E DC LDA #DCOE 
F880 097 19 DRA 0519 
F682 8D OF DC STA SDCOF 
F885 9 AND 6891 
F887 8D A2 02 STA s02A2 
FBBA 20 a4 FO JSR 8FOAS 
FBBD AD 11 00 LDA 8DO11 
F890 29 EF AND BSEF 
F892 eD 11 DO 5TA sDOoll 
F095 AD 14 05 LDA 50314 
F898 BD 9F 02 Sina 8029F 
F89B ad 15 05 LDA 80315 
F89E BD AO 02 STA s02A0 
FOAI 20 8D FC JSR SFC3D 
FOA4 nF 02 LDA 9802 
FBA& 85 BE STA sBE 
FBAB 20 97 FB JSR $&FB97 
FBAB AS 01 Da sol 
FBAD 29 1F AND es1Ff 
FOAF 85 01 STA s01 
FeBl 85 co STA sC9 
FBBS AZ FF LDX 8sFF 
F8B5 ao FF LDY BeFr 
FBB7 88 DEY 

F888 DO FD BNE #F8B7 
FBBA ca DEX 

FEBB Do F& BNE $F8B5 
FBBD 58 cl! 
LIKSERTITZEIT III TE 

FEBE AD AO 02 LDA #02A0 
FeCcl CD 15 03 CHP 80315 
FBC4 18 CLc 

F8C5 FO 15 BEQ $FEDC 
F6C7 20 DO F8 JSR sF8D0 
FOCA 20 BC F& JSR $SF6BC 
FBCD 4C BE FB JnP 6FOBE 


AXITISE ET ZZEZZZERZSIZZ EI IE SE 2 23 


F8DO 


20 Ei FF 


JSR 


3FFEI 


IRQ an Pın ‘Flag’ 
Nunser des IRGQ-Vektors, $F®2C 


Bandpufter auf Band schreiben 
Bandpufferadresse holen 

Checksuane 

tur Datendlock bzw. Header = $14 
Block bzw. Programn auf Band schreiben 
wartet auf Record %& Play Taste 
STOP-Taste gedruckt ° 


IRQ beı Unterlauf von Tiner B 
Nunaer des IRQ-Vektors, #FCöA 


IRQ-Maske loschen 
und neu setzen 

CRA 

CRB, IRQ an Timer B 


Tıner A Kontroll-Flag 


Bıldschıra dunkel tasten 

IRQ-vVector 

nach $829F/$32A0 speichern 

IRQ-Vektor fur Band 1/0 setzen (X-ındızıert) 


Anzahl der Blocks zu lesen 
serielle Ausgabe vorbereiten Bit-lahler setzen 


Band-Notor eınschalten 


Flag für Band-Notor setzen 


Verzögerungsschleife tür Bandhochlaufzeit 


Interrupt tur Band 1/0 {reıgeben 


1/0 Abschluß abwarten 
IRO-Vektor nıeder auf Standard-Wert ? 


ja, dann fertig 

Test auf Stop-Taste 

bei gedrückter Stop-Taste Flag setzen 
weiter warten 


testet auf Stop-Taste 
Stop-Taste abfragen 
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F8DS 18 cLc 

F8D4 Do 08 BNE #FBEI 
F8D& 20 93 FC JSR SFC93 
F8D9 38 Sec 

FaDA 68 PLA 

F&ODB 68 PLA 

FBDC AI 00 LDA 4600 
FBODE 8D AO 02 STA #02A0 
FBEI 60 RTS 
ÄESEZEZEZTERESTUETTERRTETEE REN 
FBEZ 85 Bl SsTı $sBi 
F8Ea AS BO LDA #BO 
FBES 0A AasL A 
FE? 9A ASL A 
FBEB 18 cıLc 

FBEF 65 89 ADC #60 
FBEB 18 eıc 

FBEC 65 Bi ADC #Bi 
FBEE 85 BI STa #Bl 
[4:120) AI 00 LDA 8800 
FBF? 24 BO BIT 880 
FBFA 3500 Bni sFar7 
FBF& 2A ROL A 
FOF7 06 Bi ASL #B1 
FaF9 2A ROL A 
FBFA 06 BI ASL $BI 
FBFC 2A ROL A 
FOFD AA TAX 

FOFE AD 06 DC LDA $0C06 
F901 c7 16 CnP #816 
F903 90 F9 BCC sFBFE 
F905 65 Bl ADC #B1 
F907 8D 04 DC STA #0C04 
FFOA 8A TxA 

FF0B 6D 07 DC ADC #0C07 
FIOE aD 05 DC STA *DC05 
Fall AD A2 02 LDA 802A2 
FI14 8D 0E DC STA #DCOE 
F917 eD Aa 02 STA #02A4 
FA AD OD DE LDA 60C00 
FD 29 10 AND #610 
FIIF FO 09 BEQ #FT2A 
F921 R9 F9 LDA 98F9 
F92J3 48 PHA 

F924 AI 2A LDA #82A 
F926 48 PHA 

F927 ac a3 FF JMP $FF4S 
FI2A 58 eLi 

F?2B 60 RIS 
LASZELUTESSERETTEETTERTTELTEIT 
F92C AE 07 DC LDx #DC0O7 
FI2F AO FF LDY SSFF 
F951 8 TYA 

r932 ED 04 DC SBC #DC06 
F935 EC 07 DC cPX 80007 
FF38 Do F2 BNE $F92C 
FFIA 86 Bl STX sBl 
FOSC aA Tax 


nein, dann Rückkehr 
Band-Motor aus, noraalen IRQ wiederherstellen 
Kennzeichen für Abbruch 


Rucksprung Adresse löschen 


Kennzeichen für noraalen IRQ 


Band fur Lesen vorbereiten 


Input von Band lesen, Pın ‘Flag’ 
Bit isolieren 


Rücksprungadresse auf Stack 


zus Interrupt 


Interrupt-Routine für Band lesen 
Timer B Hi 


Tiaer B Lo 
Tiser B Hi 
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FISD 
FF 
F943 
F945 
F93B 
F94B 
FIAE 
FO4F 
F951 
F953 
F954 
F956 
F957 
F959 
F95B 
F9SC 
F9SE 
F9&0 
F9b2 
F964 
F9b6 


F9I69 
F96B 
F96D 
F96bF 
F971 
F973 
F975 
#977 
F978 
FFTA 
F97C 
FITE 
F9B0 
F982 
F9B4 
F986 
F988 
F9BB 
F98D 
FBF 
991 
F9935 
F995 
F997 
F999 
FIFA 
FIIC 
FFIE 
FIAQ 
F9A2 
FFAA 
FFAb 
FIAB 
FFAA 
FFAC 
FFAE 
F9BO 
F9BS 


&c 
ec 
AF 
8D 
aD 
8D 
98 
ES 
85 
sa 
&6 
4A 
db 
AS 
18 
69 
c5 
Bo 
Ab 
Fo 
sc 


Ab 
30 
A2 
0? 
65 
c5 
Bo 
EB 
63 
85 
c5 
BO 
69 
65 
c5 
so 
ac 
AS 
Fo 
85 
00 
Ed 
80 
Ch 
38 
E9 
ES 
65 
85 
AS 
49 
85 
Fo 
86 
As 
Fo 
aD 
29 


96 
07 
17 
12 
0D 
AJ 


81 
Bl 


61 


Bl 
BO 


IC 
Bi 
4A 
sc 
03 
60 


AI 
1B 
00 
30 
B0 
Bl 
ic 


26 
80 
Bt 
17 
2C 
Bo 
B1 
05 
10 
B4 
ıD 
AB 
19 
A? 
02 
A9 


13 
Bi 
92 
92 
Ak 
01 
a4 
28 
D7 
B4 
22 
a3 
ol 


DC 
DC 


De 
Dc 
32 


FA 


FA 


02 


STY 
SsTY 
LDA 
STA 
LDA 
STA 
TYA 
SBC 
STt 
SR 
ROR 
LSR 
ROR 
LDA 
cLc 
ADC 
Cap 
BCS 
LDX 
BEO 
JMP 


LDr 
EB 
LDx 
Aadc 
ADC 
cap 
8C5 
INI 
ADC 
ADC 
CnP 
BES 
ADC 
ADt 
CmP 
Bcc 
JnP 
LDA 
BED 
SsTa 
BNE 
INC 
BCS 
DEC 
SEC 
SEC 
SBc 
ADC 
STa 
LDA 
EOR 
STA 
BEQ 
sTtı 
LDA 
BEQ 
LDA 
AND 


Tırer Bto 
Tiaer B Rı 


IRQ von Tırner B 


Input voa Band, Fın 
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"Flag 


F9B5 
F9B7 
FRA 
FaBC 
FOBE 
FSGO 
FSc3 
F9CS 
F9C7 
F°c9 
FSCR 
FSCE 
F3DO 
Fon? 


FaDS 
Fop7 
F909 
FeDe 
FSDD 
FSDE 
FeEO 
E9E2 
FSga 
FOEA 
FPEB 
F9EI 
FIER 
FIED 
FOEF 
For 
FSF3 
FIFS 
FIFT 
FIFB 
FOFA 
FOFC 
FOFE 
FANO 
FAO2 
FAOa 
FAO& 
FA08 
FAOA 
FAOD 
FALO 
Frai2 
FAL 
Fal& 
FALB 
FALA 
FAIC 
FALF 
Fazt 
FA23 
FA24 
FA2& 
FA28 
FA29 
FAZA 


Dd6 
AD 
DO 
A9 


< 
Ss 


8B 
As 
10 
20 
a2 
20 
AS 
dp 
ac 


AS 
Fü 
ED) 
Ce 
Sc 
E6 
AI 
85 
Eı 
09 
BA 
D0 
AS 
30 
c9 
99 
85 
89 
8A 
45 
85 
AS 
ro 
c6 
30 
46 
66 
a2 
20 
ac 
AS 
FO 
AS 
eo 
AS 
30 
4C 
46 
a9 
38 
ES 
65 
oA 
AA 
20 


95 
As 
1& 
09 
As 
As 
AS 
39 
BF 
Ab 
E2 
9B 
89 
BC 
92 
097 
DB 


69 


BO 
On 
92 


D7 
or 


LU} 
a9 
BD 
10 
B9 
76 
85 


9B 
98 
Ba 
D2 
A3 
c5 
D7 
BF 
DA 
E2 
BC 
9% 
04 
Ba 
07 


z 
Ss 


03 
97 
Bil 
9 


Bl 
BO 


E2 


FB 


FE 


FB 
FE 


FI 


FB 


BNE 
LDA 
BNE 
LDA 
STA 
S5TA 
LDA 
BPL 
Bml 
LDX 
JSR 
LDA 
BNE 
IMP 


LDA 
BEQ 
Bm 
DEC 


sF9BC 
+02A4 
sF902 
“3005 
ET 
s02A4 
sa3 
sF9F7 
3F98B 
“sAb 
sF8E2 
s98 
+F98B 
sFEBC 


392 
sF9ED 
$F9DE 
380 


.BYTE 82C 


INC 
LDA 
STA 
cPx 
BNE 
Tıa 
BNE 
LDA 
Brl 
np 
BCC 
STA 
BCS 
TXA 
EOR 
STA 
LDA 
BEO 
DEC 
Bmi 

LSR 
ROR 
LDx 
JSR 
InP 
LDA 
BEO 
LDA 
BEO 
LDdA 
BMI 

JmP 
LSR 
LDA 
SEC 

SBC 
abc 
ASL 
TAX 

J5R 


#80 
88500 
392 
sD7 
sF9F7 


sF98B 
sa 
sFIAC 
10 
sFIAC 
39% 
sFIAC 


s9B 
#9B 
sB4 
sF902 
sAJ 
sF9Cc9 
07 
sBF 
#sDA 
sFBE2 
srFEBC 
96 
sFAIG 
584 
$FAIF 
sA3 
sFAIF 
46997 
sBl 
0893 


sBl 
sB0 
A 


sF8E2 


Ruckkehr voa Interrupt 


Rückkehr von Interrupt 


259 


FA2D 
FAZF 
FASI 

FAII 
FASS 
FA37 
FA3SS 
FASB 
FASD 
FAIF 
FA42 
FAgA4 
FAsL 
FA4B 
FAA 
FAAC 
FA4E 
FASO 
FASI 
FA55 
FAS7 
FAS59 
FASB 
FASD 
FA&O 
FA63 
FA65 
FAb7 
FALA 
FA6C 
FAGbE 
FA7O 
FA72 
FA7& 
FAT& 
FA78 
FA7A 
FATC 
FATD 
FA7F 
FABI 

FAB4 
FAB& 
FASB 
FABA 
FABD 
FABF 
FASI 

FA93 
FA9S 
FA97 
FA9I9I 
FAIB 
FASC 
FAIE 
FAAO 
FAAZ 
FAAI 
FARS 
FAA7 


DC 


3c 


FE 
FB 


FB 


FE 


FE 


INC 
LDA 
BNE 
LDA 
1:13] 
STa 
LDA 
STA 
LDA 
STa 
sta 
LDA 
STA 
BEQ 
LDA 
STA 
LDA 
STa 
LDA 
sTa 
LDA 
ORA 
sTa 
Jnp 
JSR 
STA 
Ldı 
JSR 
LDA 
BEQ 
STA 
LDA 
BIT 
BPL 
LDA 
BNE 
LDX 
DEX 
BNE 
LDa 
JSR 
BNE 
LDA 
sTa 
JnP 
BvS 
BNE 
LDA 
BNE 
LDA 
BNE 
LDA 
LSR 
LDA 
Bni 
BCC 
CLL 
BCS 
AND 
STaA 


IRQ beı Unterlauf Timer A 


IRQ-Flag wieder löschen 


Rückkehr voa Interrupt 
Bıtzähler für serielle Ausgabe setzen 


"long block’ error 
Status setzen 


Rückkehr von Interrupt 
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FAR9 
FARB 
FAAD 
FAAF 
FABI 
FAB4 
FAB6 
FABE 
FABA 
FABC 
FABE 
FACO 
FAC2 
FACA 
FAC6 
FACH 
FACB 
FACE 
FADI 
FAD3 
FAD6 
FADB 
FAD9 
FADB 
FADD 
FADF 
FAEI 
FAEI 
FAES 
FAET 
FAEI 
FAEB 
FAED 
FAEF 
FAFI 
FAFJ 
FAFS 
Far 7 
FAF® 
FAFC 
FAFE 
FBOL 
F802 
FBOJ 
FBOS 
FB08 
FBOA 
FBOC 
FBOE 
FBIO 
FB} 
FBIS 
FBI7 
FBIA 
FBIC 
FBIE 
FB20 
FB22 
FB24 
FB26 


[sf5 
D9 
RI 
85 
20 
Ag 
85 
Fo 
Ag 
85 
Do 
AS 
FO 
AI 
20 
Ag 
sc 
29 
EL) 
ac 
ab 
ca 
FO 
AS 
FO 
ao 
AS 
Di 
Fo 
AI 
83 
as 
FO 
A2 
£4 
90 
Ab 
AS 
D 
AS 
62) 
EB 
E8 
86 
sc 
A6 
E4 
Fo 
AS 
DD 
DO 
AS 
DD 
DO 
Ed 
E& 
AS 
Fo 
AS 
ao 


aA 
DD 
40 
AA 
13 
00 
AB 
00 
80 
aa 
CA 
B5 
oA 
094 
IC 
90 
aA 
Di 
03 
38 
a7 


2D 
93 
oc 
00 
80 
ac 
04 
0 
B& 
B& 
4B 
30 
IE 
3E 
IE 
AD 
0 
Ac 
00 


9E 
3A 
IF 
9E 
35 
Ac 
00 
2E 
aD 
01 
27 
IF 
FF 
9 
OB 
BD 
00 


FB 


FE 


FB 
FC 


FB 


a 


(21 


FB 


01 


ol 


DEC 
BNE 
LDA 
STa 
JSR 
LDA 
STA 
BEO 
LDA 
STa 
BNE 
LDA 
BEQ 
LDA 
JSR 
LDA 
JINP 
JSR 
BCC 
JInP 
LDx 
DEX 
BEQ 
LDA 
BEO 
LDy 
LDA 
cnP 
BEO 
LDA 
STA 
LDA 
BEO 
LDX 
cPxX 
BCC 
LDX 
LDA 
sta 
LDA 
5Ta 
INX 
In 
sTı 
JNP 
LDX 
cpxX 
BEO 
LDA 
cnP 
BNE 
LDA 
cHP 
BNE 
INC 
INC 
LDA 
BEO 
LDA 
LDY 


sAaA 
sFABA 
2.0 
sAA 
sFBBE 
«500 
sAB 
sFABA 
«580 
sAaA 
$FABA 
#B5 
sFACE 
“204 
srEic 
8800 
sFBAA 
sFCcDi 
sFADSs 
sFB48 
sA? 


#FBO8 
#93 
sFAEB 
ns00 
sBD 
(sAC),Y 
$FAEB 
“so 
sB6 

$B6 
#FBSA 
#s3D 
s9E 
#F833 
s9E 

sAD 
80101,X 
sac 
0100,X 


s9E 
sFBIA 
s9F 

s9E 
sFBA3 
sac 
s0100,X 
sFBa3 
saD 
s0101,1 
6FBAJ 
89F 

sy 

493 
sFB2F 
sBD 
us00 


“short block’ error 
Status setzen 


Endadresse schon erreicht ? 
nein 


Load/Verity-Flag 
Load ? 


gelesenes Byte 
vergleichen 
übereinstinaung ? 


Flag setzen 


Byte in Ordnung ? 


Daten für second pass Korrektur 


Fehlerkorrektur bei Pass 2 


gelesenes Byte 
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FB28 dı ac CMP (SAC).Y aıt Speıcherinhalt vergleichen 
FB2A FO 17 BEO SFBA3 


FB2C c8 InY 

FB2D 84% B6& STY sB& 

FB2F A5 86 LDA #B& 

FB31 FO 07 BEQ $FBJA 

FB3S AI 10 LDA 8810 "second pass’ error 

FBJS 20 IC FE JSR KFEIC Status setzen 

FBSB D0 089 BNE #FBAS 

FB3JA AS 93 LDA 593 Verity ? 

FBSC Do 05 BNE $FB4S "a 

FB3E AB TAY 

FBIF AS BD LDA $BD gelesenes Byte 

FB41 91 AC STA (sAC),Y speichern 

FB&S 20 DB FC JSR SFCDB Adresszeiger erhohen 

FBa6 DO 45 BNE SFREB Ruckkehr vor Interrupt 
FB48 AI 80 LDA #580 

FBAA 85 AA STA $AA 

FBAC 78 SEI 

FBaD A201 LDx 0801 

FBAF BE 0D DC STı sDCOD IRC voa Tımer A verhindern 
FBS2 AE OD DC LDı sDCOD IROQ-Flag löschen 

FBS5 Ab BE LDX sBE Pass-lahler 

FB57 ca DEX erniedrigen 

FBS8 30 02 BMI sFSSC 

FBSA  B& BE STu sBE 

FBSC C6 A7 DEC sA7 

FBSE FO 08 BEQ sSFB68 

FB&0 a5 ®E LDA 8#9E 

FBs2 Do 27 BNE SFBBB Rückkehr vom Interrupt 
FB&4 85 BE STA sBE 

FB&b Fo 23 BEO sFBSB Rückkehr vom Interrupt 
FB6B 20 93 FC JSR #FC93 eın Pass beendet 

FBöB 20 BE FB JSR sFBBE Adresse wieder auf Programnanfang 
FBöE Ad 00 LDY #800 

FB70 84 AB STY saß 

F872 Bı AC LDA (sacı,Y Prograas Checksumne berechnen 
F874 45 AB EOR $AB 

FB7& 85 AB STA sAB 

FB7B 20 DB FC JSR SFCDB Adresszeiger erhöhen 

FB7B 20 Di FC JSR SFCDI Endadresse schon erreicht ? 
FB7E s0F2 BCC 3FB72 nein, weiter vergleichen 
FB80 AS AB LDA sAB berechnete Checksusne 

FB82 45 BD EOR $BD aıt Chechsunae vom Band vergleichen 
FBB4 f0 05 BEQ sFBBB Checksuaae ok ? 

FBS&L AF 20 LDA #820 "checksua’ error 

FBOB 20 IC FE JSR SFEIC Status setzen 

FBBB ac BC FE JMP sSFEBC Rückkehr vom Interrupt 
FBBE AS C2 LDA sC2 

FB90 85 AD STA sAD 

FB92 AS ci LDA 6C1 

FB94 85 AC STA sAC 

FB9I& 60 RTS 

AEEEZZSEZSZZLLLZERZES SEES DZ Bıtzahler für serielle Ausgabe setzen 
FB97 A? 08 LDA #308 

FBI9I 05 A3 STAa sA3 8 Bits 

FBIB A? 00 LDA #500 

FB9ID 85 A4 STA #A4 

FBF 85 AB STA $AB 
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FBAI 85 98 5TA 59B 
FBAJ 85 A9 sTa 149 
FBAS 60 RTS 
IKEEEKZEEZZE EZ EZZELZEZ IT ZEIT 
FBA& AS BD LDA s8D 
FBAB 4A LSR A 
FRAS a9 60 LDA 8860 
FBAB 2.02 BCC $FBAF 
FBAD A? 80 LDA #880 
FBAF A2 00 LDx #809 
FRBI eD 06 DC STA $DCO& 
FBBa 3E 07 DC STı 80C07 
FBB7 aD oD DC LDA tDCOD 
FBBA A9 19 LDA W818 
FBEC 8D OF DC STA sDCOF 
FRBF a5 01 LDA 801 
FBCI 49 08 EOR RnS08 
FBCI 85 01 SsTa 801 
FBES 29 08 AND #808 
FEC? 60 RTS 

FRCB >8 SEC 

FBC9 66 B6 ROR #B& 
FBCB 30 5C BMI #FC0® 
[IXEHIETZEITTEFTETESTTETTR IT 
FBCD AS AB LDA SAB 
FBCF Do ı2 BNE SFBEI 
FBDI A9 19 LDA #810 
FBDJ a2 01 LDx 0801 
FBOS 29 Bi FB JSR $FBBi 
FBDR D0 2F BNE SFCO9 
FBDA E& AB InC #A8 
FBDC AS 86 LDA #B& 
FBDE 10 29 8PL $FCO9 
FBEO ac 57 FC JnP #FC57 
FBEI A5 AI LDA 849 
FBES 009 09 BNE $FBFO 
FBE7 20 AD FB JSR sFBAD 
FBEA Do ıD BNE 8FCO® 
FBEC E6 49 INC $A9 
FBEE Do 19 BNE $FC09 
FBFO 20 Ab FB JSR $FBA& 
FBFS 009 14 BNE $FCO® 
FBFS AS Aa LDA $A4 
FBF7 49 01 EOR #801 
FBF 85 A4 STA #A4 
FBFB Fo Of BEO sFCOC 
FBFD AS BD LDA $BD 
FBFF 49 01 EOR #801 
FCO1 85 8D STA $BD 
FCO3 29 01 AND as01 
FCO5 45 9B EDR 8968 
FCO7 85 9B STA #9B 
FCO9I s4C BC FE JMP sFEBC 
FCOC 46 BD LSR $BD 
FCOE C6 AS DEC $AS 
FCtO AS AS LDA sAJ 
FELZ FO 3A BEO sSFCAE 
FC14 10 F3 BPL #FCOI? 


Eın Bıt auf Band schreiben 
Rıt ın &BD 

Bıt 9 in Carry 

Zeıt #ür "1° Bit 


Zeit fur 0° Bit 

Tıeer B low 

Tıaer B hıgh 
Interrupt-Flag löschen 


Tiner starten 


Ausgabe-Bit fur Band ınvertieren 


Rückkehr voa Interrupt 
Interrupt-Routine für Band schreiben 


Takt auf Band schreiben 
Rückkehr vos Interrupt 


Ruckrehr vom Interrupt 
zweıten Block schreiber 


"9° Bıt schreiben 
Ruckkehr voa Interrupt 
Rückkehr von Interrupt 


Bıt auf Band schreiben 
Rückkehr voa Interrupt 


Bıt für Ausgabe invertieren 


Ruckkehr von Interrupt 
nachstes Bit in Position 9 
Bitzähler erniedrigen 


nächstes Bit ausgeben 
Ruckkehr vos Interrupt 
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FCI& 20 97 FB JSR $FB97 
FC18 58 ceLI 

FCIA AS AS LDA sAs 
FCIC Fo 12 BEQ #FC30 
FCIE a2 00 LDx 2500 
FC20 8& D7 STx 607 
FC22 66 AS DEC $A5 
FC24 As BE LDX sBE 
FC26 E0 02 cPxX 88502 
Fc28 00 02 BNE &FC2C 
FCZA 09 80 DRA 2880 
FC2C 85 BD STa 630 
FC2E Do 09 BNE £FCO9 
FC3SO 20 Di FC ISR sFcDi 
FC33 90 0A BCC SFECSE 
FC35 Do 91 BNE SFBC8 
FC57 Ed AD InC sAD 
FC39 AS D7 LDA 807 
FCSB 85 BD STA sBD 
FCSD BO CA BCS #FC0O9 
FCSF AO 00 LDY 8800 
FCal BI AC LDA (SAC) ,Y 
FC43 85 BD STA £BD 
FC45 45 07 EOR $D7 
FC47 85 D7 STA 507 
FC49 20 DB FC  JSR SFCDB 
FCAC Do BB BNE SFC09 
FC4E AS 98 LDA #98 
FCSO 49 01 EOR 8801 
FC52 85 BD 5TA sBD 
FC54 ac BC FE JMP sFEBC 
FCS7  C6 BE DEC sBE 
FC59 D0 03 BNE $FCSE 
FCSB 20 CA FC JSR SFCCA 
FCSE A9 50 LDA #850 
FC60 85 A7 STA 8A7 
FC62 A2 08 LDX 9808 
FC64 ’8 sel 

FC65 20 BD FC JSR SFCED 
FC68 D0 EA BNE 6FC54 
LLLEXETZSTTIIZITERTERTIIETTEN ST 
FC6A A978 LDA 0878 
FCbC 20 AF FB JSR SFBAF 
FCöF D0 EI ENE 6FC54 
ron Ce a7 DEC 8A7 
Fc7J Do DF BNE SFC54 
FC75 20 97 FB JSR #F897 
FC7B C& AB DEC $AB 
FC7A 10 D8 BPL SFCc5a 
FE7C A2 0A LDX 080A 
FE7IE 20 BD FC JSR sSFCBD 
Fe 58 ci 

FCB2 E6 AB INC $AB 
FCBA4 AS BE LDA sBE 
FCB& Fo 30 BEO $FCB9 
FCB88B 20 8E FB JSR #FBOE 
FC8B A2 09 LDX 0809 
FCOD 86 AS STA 8AS 
FCOF 86 B& STX #B& 
Fc91 Do 83 BNE $FC16 


Bitzähler wieder auf 8 setzen 


Ruckkehr vom Interrupt 
Endadresse schon erreicht ? 


Ruckkehr vom Interrupt 


zu scheibendes Byte 


Adresszeiger erhöhen 
Ruckkehr vom Interrupt 


Ruckkehr von Interrupt 

Zahler #ür Blocks erniedrigen 
noch eın Block ? 

nein, Band-Notor aus 


IRQ auf $FC6A 
Rückkehr von Interrupt 
Interrupt-Routine für Band schreiben 


Bit auf Band schreiben 
Ruckvrehr voa Interrupt 


Rückkehr voa Interrupt 
Bıtzahler fur serielle Ausgabe setzen 


Rückkehr vom Interrupt 


IRQ auf sFBCD 


Adresse wieder auf Antang setzen 
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FC93 08 PHP 


FC94 78 SEI 

FC95 AD ı1 DO LDA $D911 

FC9B 98 10 ORA "#10 Bıldschira wieder eınschalten 
FLIFA 6D 11 D9 STa 8DO1lL 

FC9ID 20 CA FC JSR SFCCA Rekorderaotor ausschalten 
FCAO A9 7F LDA #357F 

FCA2 eD 0D DC STA $DCOD Interruptaoglıchkeiten löschen 
FCAS 20 DD FD JSR $SFDDD CIA nieder auf Standardnerte, 1/60 3 Tısing 
FCAB AD An 02 LDA $02A0 

FCAB FO 09 BEQ SFCB& 

FCAD eD 15 03 STA 80315 IRQ aut Standard 


FCBO AD 9F 02 LDA 8#029F 
FCB3 8D 14 05 STA 80314 


FCB& 8 PLP 

FCB7 60 RTS 

VradUaReeriHarseue era IRO-Vektor setzen 

FCBO 20 93 FC JSR $FC93 IRQ auf Standard 

FCBB FO 97 BEQ SFCS4 

FCBD BD 95 FD LDA $FD93,X 

FCCO 8D 14 03 STA 0314 IRQ-Vektor aus Tabelle setzen 


FCC3 BD 94 FD LDA sSF094,X 
FCCö 8D 15 03 STA 80315 


FCC9 60 RTS 

LEAD EZZESLZZEZZEZEZERDE ZEIGT GG 

FCCA A501 LDA #01 

FCCC 09 29 ORA #820 Rerorderaotor ausschalten 
FCCE 085 01 STA sol 

FCDO 60 RTS 


Kertsnnasnannsseeerussennunane prüft auf Erreichen der Endadresse 
FCDI 38 SEC 


FCD2 AS ACc LDA sAC laufende Adresse SAC/SAD 
FCDs ES AE SBC $AE 

FCD6 AS AD LDA $AD Endadresse BAE/SAF 

FCOB E5 AF SBC sAF 

FCDA 60 RTS 

BEBaAHRRHERTIIEARAR URAN Adresszeiger erhöhen 

FCDB E& AC INC $AC 

FCDD Do 02 BNE #FCEI 

FCDF E65 AD INC sAD 

FCEI 60 RTS 

SaRbaaRaeRUSHRRH Urea RESET 

FCE2 A2 FF LDX asFF 

FCE4 78 sel 

FCES 9A Tı5 

FCE& D8 cLD 

FCE7 20 02 FD JSR $FD02 prüft auf ROM in 68000 

FCEA Do 03 BNE SFCEF 

FCEC &C 00 80 IMP (88000) Sprung auf Modul-Start 

FCEF BE 16 DO STX 8D016& Videocontroller Steuerregister 2 
FCF2 20 a3 FD  JSR SFDAI Interrupt vorbereiten 

FCFS 20 50 FD JSR $FD50 Arbeitspeicher initialisieren 
FCF6 20 15 FD JSR #FD15 Kardware und 1/0 Vektoren setzen 
FCFB 20 3B FF JSR $FFSB Vidao-Reset 

FCFE 58 cLI 
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FCFF st 00 AO JMP 15A0N0) zua BASIC Yaltstart 


BaAAuaRaHESRTRREI RE Drurt auf ROM ın KINNO 
FDO2 A205 LDr 8505 

FDO4 BD OF FD LDA SFDÜF,K 

FD07 DD 07 80 CMP sB005,% vergleicht mıt 'CBNB9 


FDOA D0 03 ENE KFDOF 
FDOC CA DEX 
FDOD 00 FS BNE SFDna 
FDOF 60 RTS 


BraaumaadueadennerssTRuaaeer  ROM-Modul Identifizierung 
FDIO CI C2 CD 38 30 "ceman 


Kerseara ee ee Hardware und i/D Vektoren serzen/huler 
FD15 02 30 LDY 86850 


FD17 An FD LDY “sro Zeiger auf Tabelle SFD}N 
FDI® 18 cıLc 

FDIA 86 C3 STr scy 

FDIE 82 Ca siY 5C3 

FDIE An IF LDY “str 

FD20 89 14 05 LDA sO51%,Y 

£0273 20 02 5605 $FD27 C=1 dann Veltoren holen, [C=h selzen 
FD25  BLC5 LDS (SC9H).Y 

FD27 91C3 STE iSCHı,Y 

F029 9 18 03 STA SOI13,Y 

FD2C 88 DEY 

FD2D 10 Fi BFL SFD2O 

FDZF 60 RTS 


Araaaaaeaaesuetatehrireeeneere Tabelle Hardware und [/O-Vektoren 
FDSO 31 ER 66 FE 47 FE AA FS 
FDJ8 sı F2 0EF2 50 F2 53 F3 
FDa0 57 FıCAFIEDFe& SE FI 
FD4B 2F F5 66 FE A5 54 ED FS 


suSUsSaRaRASA Eee Ärbeitsspeicher ınıtıalisieren 
FDS50 A909 LDA #500 

FD52 AB TAY 

F0S3 99 02 00 STA 80002,Y  LZeropage, 

FDSb 99 00 02 STa 80200.Y Page 2 und 

FD59 99 009 05 STA #0300,Y Page 3 loschen 


FDSC c6 INY 

FDSD DO F& BNE SFDS>5 

FDSF A2 5C LDX #sIC 

FD6l AO 03 LDY 0803 

FD63 86 B2 ST sB2 Bandouffer Zeıger auf SN55C 
FD65 684 53 STY #B3 

FD&7 AB TAY 

FDbB 49 03 LDA #803 

FD6A 85 C2 sTA sC2 RAN ab 8400 testen 
FDbeC E6 C2 Int 3C2 

FD6E Bı cı LDA (sch) ,Y 

FD70 AA TAX Wert merken 

FD71 A9 55 LDA #855 %01010101 

FD?3 sı cl STA tsCı) ,Y 

FD7S bi Cı cnP (sc1),Y 

FD77 D0 OF BNE $FDBB 

FD79 2A ROL A 210101910 

FD7A sı cı STA (scı),Y 
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FD7C 
FD7E 
FD86 
FDal 
FDe! 
FDa4 
FDBE 
FD86E 
FDB$ 
FOBA 
FDBC 
FOOD 
FO 
FD92 
©0985 
FD9I? 
FDIA 


vr. 


FDIE sk FE CD FR SI EA 2C F9 
Ki ÄEEZELEZEEZEZZELZZEITZ N 
FDAS “9 7F LDA s87F 
FDAS öt AD DE STA sDcHD 
FDAB 8b 00 DD STA #D00D 
FEAR aD un DC STA #DC9HN 
FDAE “9.08 LDA #508 
FDBO eD HE DE STA sDCHE 
FDB! 3D OE DD STA SDDOE 
FOB6 BD HF JC STA $DLOF 
FDB? 3D NF DD STA sDDOF 
FDBC "2.00 LDX 1800 
FDBE SE Ho DC STX 80C03 
FDC1 e@E 03 0D STX #DD03 
FDCA SE 18 D4 STX 80418 
FDC7 CA DEX 

FDCe YE 02 DC STX 8#DC02 
FDCb 49097 LDA #507 
FDCD 8D 00 DD STA $DDOO 
FDDO 89 3F LDA ns3F 
FDD? 39 02 DD STA #DD02 
FDDS “9 £7 LDA #sE7 
F0D7 85 01 sTa #01 
FDD? AI 2F LDA ##2F 
FDDB 85 09 STA #00 
FODD AD Ab 02 LDA $02A& 
FDEO FO 0A BEQ $FDEC 
FDE2Z AI 25 LDA #825 
FDEA4 8D 04 DE STA $0C04 
FDE7 AI 40 LDA 8840 
FDEI ac FI FD IMP sFDFS 
FDEC A9 95 LDA 8895 
FDEE 8D 04 DC STA 8DC04 
FDFI A9 a2 LDA #642 
FDF3 8D 05 DC sTA s0C05 
FDF& 4C 6E FF JNP #FF&E 
LLIEESTEERTEFERZTERTEEEEEEE TEE 
FDFI 85 B7 STA #B7 
FDFB 86 BB STX $BB 


Lo 
Fu 
°8 
An 
ns 
ı8 
u 
nY 
bB 
ng 
sD 
zo 


ÄKHZEZZEZEZETTEITERE RT 


CHP 
BNE 
Tıa 
Sta 
INY 
BRE 
BEQ 
TYyA 
TAX 
LDdY 
CLC 
JSR 
LDA 
STA 
LDA 
STA 
RTS 


sch, r 
sFDOB 


Ischl ,v 


IFDEE 
srb&c 


Wert wieder zuruckschreiben 


Menory (RAN) Top setzen 
Menory (RAN) Start auf #000 
Vıdeo-RAM auf 8400 

IRQ Vektoren 

SFCöA. SFBCD, BEATL, KF92C 


Interrupt Inıtıalısıerung 
Interrupt loschen 


ICR CIA I 

ICR CIA 2 

Port A CIA 1, Tastatur Natrınzeile 0 
CRA CIA I Tımer A one snot' 

CRA CIA 2 Tiaer A ‘one shot’ 

CRB CIA I Tımer B "one shot’ 

CRB CIA 2 Tiaer B 'one shot 


Eıngangs-Modus 
Datenrichtungsregister B CIA I 
Datenrichtungsregister B CIiA 2 
Lautstärke fur SID auf Null 
Ausgabe-Modus 
Datenrıchtungsregister A CIAI 
Vıdeocontroller auf unterste l6 K 
Port A CIA 2, ATN löschen 

Bıt 0 bıs 5 auf Ausgabe 
Datenrichtungsregister A CIA 2 


Prozessorport, Speicheraufteilung 


Datenrichtung Prozessorport 0-5 Ausgang 
NTSC-Version ? 

ja 

Tıaer für PAL-Version setzen 

34025 = 16421 lyklen 


Tiaer fur NTSC-Version setzen 
64295 = 17045 Zyklen 


Tıaer high 
Interrupt durch Tiaer setzen 


Paraaeter fur Filenanen setzen 


Länge 
Adresse lo 
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FDFB 84 BC 
FDFF 60 


STY sBC 
RTS 


LALEUEZTZZSZEEZZZZEE EI ZZEE ZZ ZZ 


FEOO 85 86 STA #B8 
FEO2 86 BA STI #BA 
FEO4 84 BP? STr #89 
FEOS 60 RTS 
LEITETE IETTEITZEREITEE IE ZEIT 
FEOT AS BA LDA sBA 
FEOS c9 02 CnP 0802 
FEOB D0 0D 8NE. SFEIA 
FEOD AD 97 02 LDA 30297 
FE1O 48 PHA 

FELL A9 00 LDA 8500 
FE 8D 97 02 STa 50297 
FEIS 68 PLA 

FEIT? 60 RTS 


[HELTEELSLIIEIUTERETETERERELTE, 
FEID 85 9D Sta 59D 
FEIA a5 90 LDa $90 


LIEEEZZZELTEEZEZZZIET IE TZEE TE 


FEIC 95 99 DRA 890 

FEIE 85 90 STA 890 

FE2O 60 RTS 
IKLELTETEITERTERELTUIEH ET DENE 
FE2I 8D 85 02  STA 80285 
FE24 60 RTS 
LLIEIERERTZUEITIRIEREREIETETTT 
FE25S 90 06 BCC $FE2D 
FE27 AE 83 02 LDX 50283 
FEZA AC 84 02 LDY 802B4 
FE2ZD BE BI 62 ST 80283 
FESO BC 84 02  STY 30284 
FEJS 60 RTS 


LAEKEZZEZZTEEZEZERZEEZZ SITZEN 


FEIA 90 06 BEC SFESC 
FES6  AE BI 02  LDX 60281 
FES?_ AL 82 02 LDY 50282 
FESC BE BI 02  STX 80281 
FESF BC B2 02 SIY 50282 
FE42 60 RTS 

LAT ZZEZZZEETEZ ZZ ZZZEZEI DT 
FEA3 78 SEI 

FEA4  6C 18 03 JMP (80318) 
FEA7 48 PHA 

FEB BA Txa 

FE3I 48 PHA 

FEAR 98 TYa 

FE4B 48 PHA 

FEAC  A9 TF LDA as7F 
FEAE BD 00 DD STA sDDOD 
FESI AC 0D DD LDY $#DDOD 


Adresse high 


Paraneter !ur aktıves Fıle setzen 
logısche Fılenuaser 

Serate Adresse 

Sekundär Adresse 


Status holen 
Seratenusser 
gleıch 2 ? 

neın 

RS232 Status holen 


Status löschen 


Flag fur Betriebssysteameldungen setzen 


Status setzen 


Tıaeout-Flag für IEC setzen 


MENTOP Obergrenze BASIC-Ran holen/setzen 
Carry gesetzt 
Adresse nach X/Y holen 


Carry gelöscht 
X/Y nach Adresse setzen 


MEMBOT Untergrenze BASIC-RAM holen/setzen 


s.0. 


NMI Eınsprung 


JMP $FEA7, NMl-Vector 


Register retten 


Interruptaoglichkeıten loschen 
Flags lesen und löschen 
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FES4 30 ıC BMI $FE72 RS 232 aktiv ? 


FES& 20 02 FD JSR #FD02 Prütt aut RomM-Modul in 88000 

FES9 00 03 BHRE sFESE nein, weiter 

FESB 6C 02 80 JNMP (88002) ja, Sprung auf Modul-NNi 

FESE 20 BC F& JSR #F6&BC Flag für Stop-Taste setzen 

FE&L 20 Eı FF JSR #FFEI Stop-Taste abfragen 

FESd4 D0 0oC BNE $FE72 nicht gedruckt 

FE&& 29 15 FD JSR $FD15 Standard-Vektoren für Interrupt und 1/0 setzen 
FE? 20 AS FD JSR $FDA3 1/0 ınitıalısieren 

FESC 20 18 ES JSR $ES18 1/0 ınıtıalısıeren und Bıldschira loschen 


FESF 6C 02 AO JmP (8A002) zum BASIC-Warastart 


KalsekaenseteresenranTasaeaenı  NMI-Routine für RS 232 


FE72 98 TYA 

FE7I 2D Aı 02 AND 802A1 
FE76 AA TAI 

FE?7 29 91 AND W801 
FE79F FO 28 BEQ $FEAJ 
FE7B AD 99 DD LDA #DD00 
FE7E 29 FB AND ®sFB 
FEBO 05 B5 QRA #85 


FEB2 80 00 DD STA sDDO0 
FEBS aD AI 02 LDA #02A1 
FEB 80 0D DD STA #sDDOD 


FEBB 8A LET 
FEBC 29 12 AND #812 

FEBE Fo 0D BEO #FE9ID 

FEIO 29 02 AND #802 

FEI?2 FD 06 BEQ 6FE9IA 

FEIA 20 Ds FE JSR sFEDS RS 232 in 

FE97 4C 9D FE INP #FE9ID 

FEIA 20 07 FF JSR #FFO7 RS 232 out 

FE9ID 2) BB EE JSR 6EEBB RS 232 Ausgabe 

FEAO ac Bb FE JMP sFEBö Rückkehr voa Interrupt 
FEAI aA TxaA 

FEAS 27 02 AND 6802 

FEAB FO 06 BEQ #FEAE 

FEAB 20 Da FE JSR #FEDS RS 232 in 

FEAB 4C B6 FE JNP sFEB& Rückkehr vom Interrupt 
FEAE 8A TxA 

FEAF 29 10 AND 1810 

FEBI FO 03 BEQ sFEB6 

FEBS 20 07 FF JSR SFF07 RS 232 out 


FEB& AD AI 02 LDA 802A1 
FEBI 8 0D DD STA #DDOD 


FEBC 6B PLA 

FEBD AB TAY 

FEBE 68 PLA Register zurückholen 
FEBF AA TAX 

FECO 68 PLA 

FECI 40 RTI 

LULSETTTETTERTTE Tiaerkonstanten für RS 232 Baud-Rate, NTSC-Version 
FEC2 CI 27 s27Cl = 10177 50 Baud 
FEC4 3A 1A siaJE = 8718 75 Baud 
FEC6 O4 C5 11 silcs = 4549 110 Baud 
FECB 74 0E #0E74 = 3700 134.5 Baud 
FECA ED 0C s0CED = 3309 150 Baud 
FECC 45 06 30645 = 1805 300 Baud 
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FECE Fo 02 s02F0 = 752 600 Baud 
FEDQ 46 01 s0ld6 = 326 1200 Baud 
FED BI 00 s00B8 = 184 1800 Baud 
FED4 7100 30071 = 113 2490 Baud 


[EILEHEETTIETTTEIEREESZERT IE NMl-Routine fur RS 232 Eıngabe 


FEDS AD 01 DD LDA sDD91 Port Regıster B 

FEDI 27 01 AND ®501 BEıt tur Receıve Lara ısolıeren 
FEDB 85 A? STA 847 

FEDD AD 06 DD LDA #000 

FEEO E9 IC SBc "sıc 


FEE2 6D 97 02 ADC 0299 
FEES BD 06 DD STA sDDO& 


FEEB AD 07 DD  LDA $DD07 RS 232 Tıeerkonstanten fur Baud-Rate 
FEEB oD 9A 02 ADC 86234 

FEEE 80 07 DD  STA 80007 ın Tiser schreiben 

FEF! ar ıı LDA ses 

FEFS 8D OF DD STA sDDoF Control Register B 

FEF& AD AL 02 LDA 30261 

FEFSF 80 0D DD STa sDDYD Interrupt Control Regıster 
FEFC AI FF LDA ssFF 

FEFE eD 06 DD STA $Dd%a 

FFoi 60 07 DD STA sDD07 Tıaer setzen 

FFOA 4C 59 EF JnmP sEFS® Bıt holen 


Adaserndeeiaras er eerreeteteee NAL-Routine fur RS 232 Ausgabe 


FFO7 AD 95 02 LDA 60295 
FFOA 8D 06 DD STA sDDO& 


FFOD AD 95 02 LDA 80296 RS 232 Tiaerkonstanten fur Baud-Rate 
FF1O 8D 07 DD STA 5D007 

FFIJ ar ıı LDA W811 

FF15 80 OF DD STA #DDOF Control Regıster B 
FFIB n9 12 LDA W812 

FFIA aD Al 02 EOR $02Al NMI-Flag für CIA 2 
FFID 8D Al 02 ETA 802A1 

FF2O AS FF LDA #sFFf 

FF22 8D 06 DD STA sDDOs 

FF25 8D 07 DD STA 3DD07 Tıaer laden 

FF28B dE 98 02 LDX 20298 Anzahl der zu sendenden Bits 
FF2B 86 AB ST $A8 

FF2D 60 RTS 
AEZETZETZZTERZEILZ EDIT ZZ G 

FF2E AA TAX 

FF2F AD 96 02 LDA 30296 

FFJ2 2A ROL A 

EFSS AB TAaY 

FFS4 BA TXA 

FF3S5 69 CB ADC #8C8 

FF? 8D 99 02 STA 80299 RS 232 Tising 

FFSA 98 TYA 

FFSB 69 00 ADC a8s00 

FFSD eD 9A 02 STA $029A 

FF4D 60 RTS 

FFAL EA NOP 

FF42 ER NOP 


LETLELZERZEZELZ SEE ZZ EN ZEE EZ EI Eınsprung aus Bandroutine 
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FF35 98 PHP 

FF&& 68 PLA 

FF45 29 EF AND »$EF 
FFA7 48 PHA 
IEZZELELZZZZZUZ ZZERZZEZE ZEIG ZT 
FF&B 48 PHA 

FF39 8A TxA 

FFAA 48 PHA 

FF4B 98 TYA 

FFAC 48 PHA 

FF4D BA TSK 

FFAE BD 04 61 LDA 80104,% 
FFS1 29 10 AND #810 
FFS3 F) 03 BEQ #FFS58 
FFSS 6C 16 05 JNP (80316) 
FFS58B 6C 13 05 ImP (80314 
LLITZEITIERUEER TESTER IIIETET 
FFS5B 20 18 ES JSR #ES18B 
FFSE AD 12 00 LDA 80012 
FFöl Do FB BNE SFFSE 
FF63 AD 19 00 LDA 80019 
FFö6 29 01 AND 801 
FF68 8D Ab 02 STA #02A& 
FF6B 4C DD FD IMP sEDOD 
DERRESERERREARUSETERUEIBARENE 
FF&E a9 Bl LDA n461 
FF7O 9D 0D 0C STA sDCOD 
FFII AD 0E DC LDA sDC0E 
FF7b 2? 80 AND #680 
FF78 01 DRA as 
FFIA eD DE DC STA $DCOE 
FF7D ac 8E EE JMP sEEBE 
FFBO 00 BRK 


ÄAEZEZELEIFZELZIIEIEEZEITE TE 


FeFBl 


FFB84 


FF87 


FFOA 


FF&D 


FFIO 


FF93 


FF36 


FF9F 


FFIC 


FFOF 


sc 5B 


ac A3 


4c 50 


4c 193 


ac 1A 


4c 18 


4C B9 


46. Cc7 


FF 


FD 


FD 


FD 


FD 


FE 


ED 


ED 


FE 


FE 


EA 


JnP 
JNP 
JmP 
JInp 
JnP 
JNP 
JNP 
JMP 
JAP 
JnP 


JNP 


122-):) 


sFDAS 


sFDS0O 


$#F015 


#FDIA 


sFEIB 


+EDB? 


sEDC? 


sFE25 


sFE34 


sEAB? 


Break-Flag löschen 


IRB-Einsprung 


Regıster retten 


Brear-Flag von Stapel holen 
und testen 

nicht gesetzt 

BREAK - Routine 

Interrupt - Routine 


video-Reset 

Videocontroller initialisieren 
Rasterzeile 

wartet auf Ende Videozeile 
Interrupt durch Rasterieile ? 


PAL/NTSC-Version serken 
Interrupttiaer setzen 


Tier tür Interupt setzen 

Timer A Unterlauf 

Interrupt Control Register 

Control Regıster A 

Bit 7 loschen, Uhr sit 40 Hz triggern 
Tiner A starten 

Tıaer A starten, Force Load 
seriellen Takt aus 

Sprungtabelle für Betrıebasystea-Routinen 
Videa-Reset 

CIAs Inıtıalısıeren 

RAM löschen bzw. testen 

1/0 initialisieren 

1/0 Vektoren initialisıeren 

Status setzen 

Sekundär-Adresse nach LISTEN senden 
Sekundar-Adresse nach TALK senden 
RAN-Ende setzen/holen 


RAN-Antang setzen/holen 


Tastatur abfragen 
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FFA2 
 FFAS 
FFAB 
FFAB 
FFAE 
FEBI 
FFBA 
FFB7 
FFBA 
FFBO 
FFCO 
FEC3 
FFCb 
FFC9 
FFCC 
FFCF 
FFO2 
FFOS 
FFDB 
FFOB 
FFOE 
FFEI 
FFE4 
FFE7 
FFEA 
FFED 
FFFO 
FFF3 


FFF& 


LESS ZSZEZ ZZ SIEETZLZZEIZIEZ ZEIG 


ac 
°C 
“c 
sc 
ac 
“c 
sc 
sc 
ac 
4c 
6C 
6C 
6C 
6C 
6C 
sc 
[73 
ac 
°C 
“c 
C 
sc 
sc 
sc 
[ts 
ac 
“c 
“c 
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21 
13 
DD 
EF 
FE 
oc 
07 
07 
00 
F9 
1A 
ıt 
1E 
20 
22 
24 
26 
9E 
DD 
E4 
DD 
28 
2A 
2C 
9B 
05 
0A 
00 
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42 59 


JNP 


JIMP 


JnP 


np 


JRP 


JrP 


InP 


JnP 


JnP 


JAP 


JINP 


JImP 


JnP 


JmP 


JInP 


JInP 


JnP 


np 


JInP 


np 


JnP 


JInP 


Jnp 


JnP 


JNP 


INP 


JnP 


JNP 


sFE21 
#EE13 
$EDDD 
sEDEr 
sEDFE 
sEDOC 
sED09 
sFEO7 
sFEOO 
sFDF? 
($031A) 
180510) 
(s031E) 
(80320) 
180322) 
(80324) 
(50326) 
sF&49E 
sF5DD 
BF bE& 
sF6&DD 
(80328) 
(8052A) 
(89320) 
sF69B 
sE505 
$ESOA 


8E500 


Tisae-out-Flag tur IEC-Bus setzen 
Eingabe voa IEC-Bus 

Ausgabe von IEC-Bus 

UNTALK senden 

UNLISTEN senden 

LISTEN senden 

TALK senden 

Status holen 

Fileparaaeter setzen 
Fılenaaenparaneter setzen 

sF34A OPEN 

sF291 CLOSE 

sF20E CHKIN Eingabegerat setzen 
sF250 CKOUT Ausgabegerat setzen 
3F333  CLRCH Ein/Ausgabe rucksetzen 
sF157 BASIN Eingabe eines Zeichens 
sFiCcA BSOUT Ausgabe eınes Zeichens 
LOAD 

SAVE 

Tıae setzen 

Tine holen 

3F6ED STOP-Taste abfragen 

sFisE GET 

sF32F CLALL 

Tiae erhöhen 

SCREEN Anzahl Zeilen/Spalten holen 
Cursor setzen / Cursorposition holen 


Startadresse des 1/0-Bausteins holen 


Hardware Vektoren 
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FFFA 45 FE sFEaS Nni Vektor 
FFFC E2 FC $FCE2 RESET Vektor 
FFFE 48 FF sFF4B IRQ Vektor 


2B3 


Der Schaltplan des CBM &4 


Zu Anfang dieses Kapitels einige Vorbemer kungeni 

Leider können die folgenden Seiten keine Einführung in die 
Digital- oder Computertechnik bieten. 

Wir müssen einige elementare Kenntnisse dieser Technik 


voraussetzen. 80 sollten Sie den Unterschied zwischen einem 
AND- und einem OR-Gate kennen, oder sich beispielsweise in 


der Benutzung der Henradezimalzahlen auskennen. 
Andernfalls ist die Laktüre in die Digitaltechnik 
eintührender Literatur angeraten. 


Wenn Bie diese Brundkenntnisse bereits haben, bisher aber mit 
der Hardware von Microcomputern nichts zu tun hatten, sa 
sollten Sie sich von der etwas verwirrenden Anzahl der 
Leitungen, Gatter und anderen ICs im Schaltplan nicht 
beeindrucken lassen. 

Nach der Lektüre dieses Kapitels werden Bie die Hardware 
Ihres Computers recht gut verstehen, 


Den Spezialisten und 'Freaks’ unter Ihnen wird die 
Beschreibung sicher zu ausführlich erscheinen. 

Bie sollten dies Kapitel trotzdem in Ruhs durchiesen. Um die 
Funktionen der sinzelnen Stufen nur an Hand des GBchaltplanes 
im Detail zu verstehen, ist wesentlich mehr Zeit 
erforderlich, als zum Lesen dieses Kapitels benötigt wird. 


Schauen Bie doch mal rein. 


Jeder technisch interessierte Computerbasitzer hat sicher den 
Wunsch, sein Gerät einmal zu üffnen und hineinzuschauen. 
Vielleicht haben auch Bie schon einmal das Innenleben 
betrachtet, Sollten Bie aber aus Vorsicht, den CBEM &4 nicht 
zu beschädigen diesen Wunsch nicht nachgegeben haben, dann 
seien Sie beruhigt. 

Lösen Sie zuerst alle Leitungen zum CBM 64, also Netzteil, 
Fernseher und alle anderen angeschlossenen Geräte Dann 
können Sie unbesorgt zu einem passenden 
Kreuzschlitzschraubenzieher greifen, die auf der Unterseite 
befindlichen drei Schrauben lösen und vorsichtig die beiden 
Gehäusehälften trennen um einen Blick in den Computer zu 
werten. 

Bie sollten aber um ganz sicher zu gehen vorher alle 
Steckverbindungen lösen. 

Dann kann nichts passieren und Sie können sich einen Eindruck 
von dem machen, was Gegenstand der kommenden Seiten sein 
soll. 
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Die Stromversorgung. 


Dbwohl die Stromversorgung zu den einfachen Schaltkreisen in 
einem Computer gehört, hat der Entwickler doch einige Tricks 
angewendet, um mit minimalem Aufwand einen größtmäglichen 
Effekt zu erzielen. 


Den Anschluß an das Lichtnetz übernimmt der Trafo. Dieser 
Trafo befindet sich zusammen mit einer Gleichrichterschaltung 
im Trafogehäuse und wird über einen 7-poligen DIN-Stecker an 
die mit CN?7 bezeichnete Buchse angeschlossen. Im Trafo wird 
eine Wechselspannung von 9 Volt erzeugt, die auf die Pins & 
und 7 von CN7 geführt werden. Die Gleichrichterschaltung im 
Trafogehäuse erzeugt über eine zweite Trafwmicklung eine 
stabilisierte Gleichspannung von 5 Volt. Diese 5 Volt liegen 
auf dem Pin 5 von CN7, die Masseleitung auf den Pins 1, 2 und 
3. 

Die von den Buchsenkontakten kommenden Spannungen werden zur 
Beseitigung von Netzstörungen über die Spulen L2 und L4 und 
die Kondensatoren C28, C21, C978, C99 und CiBB geführt und 
gefiltert. 

Der mit SWi bezeichnete doppelpolige Schalter ist der an der 
rechten Seite befindliche Einschalter. 

Die 9 Volt Wechselspannung wird mit der Sicherung Fi (i 
Ampere) abaesichert und steht am Userport an den Kontakten 11 
und 12 zur Verfügung. Diese Spannung können Sie nach 
Gleichrichtung und Siebung für externe Geräte verwenden, 
belasten Sie diese Stromquelle jedoch nur mit maximal 100 mA, 
die Sicherung wird es Ihnen danken. 


Apropos Sicherungı 

Wenn sie defekt ist, leuchtet die LED am 64, auch eine 
angeschlossene Floppy macht einen Reset, auf dem Bildschirm 
ist aber nichts zu sehen. 

Vergewissern Sie sich aber zuerst, ob der Fernseher auf dem 
richtigen Kanal steht und das HF-Kabel angeschlossen ist. 
Wenn alles richtig erscheint, kontrollieren Sie die 
Sicherung. Ist diese durchgebrannt, dann ersetzten Sie sie 
durch eine Bicherung mit dem Wert 1.25 Ampere. Dieser Wert 
ist noch absolut unkritisch und hat den Vorteil, daß die 
Sicherung hält. 

Sollte auch diese ihren 'Geist‘ aufgeben, liegt mit einiger 
Wahrscheinlichkeit ein Defekt vor. 


Nach der Bicherung kommt eine Gleichrichterschaltung , weiche 
5 Volt stabilisiert, 9 Volt ungeregelt sonie 12 Volt 
stabilisiert zur Verfügung stellt. 

Die Gleichrichterschaltung besteht aus den 
Brückengleichrichter CR4 und den Dioden CNS und CNd. Hinter 
dem Brückengleichrichter stehen die ungeregelten 9 Volt, die 
mit VR2, einem integrierten SV-Festspannungsregler, auf 5 
Volt stabilisiert werden. 

über die Dioden CNS und CN& wird die Wechselspannung auf eine 
ungeregelte Gleichspannung von ca. 164 Volt gleichgerichtet, 
die mit dem Spannungsregler VRi auf 12 Volt stabilisiert 
wird. 
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Die aus dem Trafogehäuse kommenden 5 Volt sind mit einem 
eigenen Spannungsregler schon im Trafogehäuse stabilisiert. 
Dies hat den Vorteil, das die erzeugte Verlustwärme nicht den 
Computer aufheizt, der erzeugt schon genug eigene kWärme. 
Diese Spannung übernimmt die Versorgung der meisten ICs in 
Ihrem CBM 44 und liegt am Fin 2 des Userports CN2. Damit 
steht Ihnen für kleinere Projekte schon eine geeignete 
Spannung zur Verfügung. 

Aber auch diese Spannungsquelle sollten Sie nicht überlasten. 
Der Maximalstrom ist mit 188 mA angegeben, sicherlich für 
einige ICs ausreichend. 

Erfreulicherweise ist diese Spannung kurzzeitig 
kurzschlußfest, Dieser Kurzschlußfall ist sehr einfach 
feststellbar, in diesem Fall erscheint kein Bild auf dem 
angeschlossenen Fernseher und die Leuchtdiode leuchtet nicht, 
da auch sie von dieser Spannung versorgt wird. 


Die im CBM 64 erzeugte Spannung von 5 Volt trägt die 
Bezeichnung CAN+S. Diese Spannung versorgt den 
Videocontroller (weiterhin kurz als VIC bezeichnet), die 
Videoausgangsstufe und alle zur Takterzeugung benötigten ICs. 
Der VIC bekommt die 5 Volt direkt, zur Videovausgangsstufe 
wird die Bpannung über die Spule Li und die Kondensatoren 
C6il, C63 und C64 gefiltert. 

Alle der Takterzeugung zugehörigen Bauteile bekommen die 
Spannung über L2, C63, C&6& und C67 gesiebt zugeführt. 


Da die Datasette kein eigenes Netzteil hat, muß der Computer 
auch den benötigten ’Baft’ hierfür liefern. Die von der 
Datasestte benötigten Spannungen sind 6 Volt für den 
Recordermotor und 3 Volt für die eingebaute Elektronik. 

Der Antriebsmotor bekommt die Spannung über die 
Transistorschaltung Qi, Q2 und QS auf die Kontakte 5 und C 
des Kassettenportsteckers CN3 geschaltet. 

Wenn der Prozessor das Portbit 5 auf High legt, wird der 
Transistor 02 durchgeschaltet. Damit ist die Zenerdiode CR2 


kurzgeschlossen, der Transistor ai bekommt keine 
Basisvorsepannung, Qi und QS sperren. Der Recorderunotor 
stoppt. 


Wird das Portbit dagegen Low, dann ist der Transistor 02 
gesperrt. An der Basis von Gi liegt die Zenerspannung von 7.3 
Volt und steuert die Transistoren Q1 und 053 an. Am Enmitter 
von QS liegt die um die beiden Basis-Emitterspannungen der 
Tranistoren (ca 1.3 Volt) reduzierte Zenerspannung, das 
ergibt ca. 6 Volt. 

Durch diese Gtabilisierung der Motorschaltstufe wird eine 
konstante Drehzahl des Motors erreicht. 

Die Elektronik der Datasette wird über die Kontakte 2 und B 
des Steckers CNS versorgt. 


Bleiben noch die 12 Volt. Diese Spannung wird #für den VIC, 
den 8ID (Bound Interface Device) und die Audioausgangastufe 
ait dem Transistor QB benötigt. 


Nicht direkt zur Stromversorgung gehörend ist die kleine 
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Schaltung rund um das Gatter U27. Trotzdem soll sie hier 
erläutert werden, da sie ihre Signale aus dem Netzteil 
bekommt. 

Das Gatter U27 stellt eine UND-Verknüpfung dar. Der Eingang 
Pin 15 liegt fest an 5 Volt, der Eingang Pin 12 über den 
Widerstand RS an den 9 Volt Wechselspannung. An Pin 12 würde 
sich die Spannung also mit der Netzfrequenz von 38 Hertz 
ändern. 

Nun ist einen Bpannung von #7 Volt für einen TTL-Eingang nicht 
sehr verträglich und eine negative Spannung von -9 Volt 
sollte an einem solchen Eingang unbedingt vermieden werden, 
um das IC nicht zu zerstören. 

Um die Eingangsspannung zu begrenzen, ist die Zenerdiode CRI 
an den Eingang geschaltet. 

Wenn die Wechselspannung über +2,7 Volt steigt, so wird sie 
von der Zenerdiode auf diesen Wert begrenzt. Danit ist ein 
logisches High-Signal gegeben. 

Die nenative Spannung wird von der Zenerdiode auf -8.7 Volt 
begrenzt, ein Wert, den der TTL-Eingang noch gut verkraftet, 
und der als logisches Low-Signal erkannt wird. 

Die Spannung schwankt also im Rythmus der Netzfrequenz an Pin 
12 des U27 zwischen Low und High. Damit ändert sich der 
Ausgang im selben Takt. 

Der Widerstand RJ37 stellt eine Mitkopplung dar, er 
beschleunigt die Anstiegs- und Abfallzeiten, um saubere 
Rechteckimpulse für die weitere Verwendung zur Verfügung zu 
stellen. 

Woraus besteht nun dir weiter Verwendung? 

Im Schaltplan kann man erkennen, das diese 58 Hertz an die 
ICa Ul und U2, die beiden CiAs, gehen. 

Auf die CIAs wird im weiteren Verlauf der 
Schaltplanbeschreibung noch näher eingegangen. Jetzt nur so 
viel 

Die Netzfrequenz ist das am einfachsten zu erzeugende 
frequenzkonstante Bignal. Darum eignet es sich besonders für 
Anwendungen, in denen Zeiten gemes werden sollen. Das ist 
auch Aufgabe des SBignals in den CIAs. Diese enthalten 
sogenannte Echtzeituhren, die ihren Takt von der Netzfrequenz 
beziehen. 


Die Takterzeugung. 


Für ein ordnungsgemäßes Funktionieren seines Computers ist 
eine stabile und störungsfreie Stromversorgung sehr wichtig. 
Die Konstanz und Stabilität der Taktsignale ist für die 
Funktion aber sicher genau so maßgebend. 

Dieser Takterzeugung wollen wir uns jetzt zuwenden. 


Wenn Sie auf die Leiterplatte des CBM 44 schauen und mit dem 
Schaltplan auf IC-Suche gehen, so werden Sie vermutlich das 
«ine oder andere IC nicht auf den ersten Blick finden. So 
sicher auch die für die Taktversorgung zuständigen ICs. Diese 


befinden sich zusammen mit dem vIic (video Interface 
Controller) in den Blachkasten in der Mitte der Platine 
{nicht der Kasten mit dem Fernsehanschluß, das ist der 


UHF-Modulator). 

Dieses Biechgehäuse schirmt die bei der Takterzeugung 
entstehende hochfrequente Störstrahlung ab. 

Bei Rechnern ohne ausreichende Abschirmung kann man 
beobachten, daß alle im näheren Umkreis befindlichen Radios 
nur Pfeif- und Zischlaute von sich geben. Schlimmer noch, 
auch Fernsehgeräte werden von solchen Störstrahlungen 
beeinflusst. Wenn der 64 nicht über ausreichende 
Entstörmaßnahmen verfügen würde, währe der Betrieb mit einem 
Fernseher wenn auch nicht unmöglich, so doch sehr gestört. 


Die alles bestimmende Taktfrequenz wird vom Quarz Yi erzeugt. 
Dach vorab noch eine Erläuterung. Alle jetzt folgenden 
Angaben beziehen sich auf ein für den deutschen Markt 
produziertes Gerät mit PAL-Ausgang. 


Der Quarz Yi schwingt mit einer Frequenz von 17.734472 MHz. 
Er ist über C78 an das IC U3J1 angeschlossen. Das IC US1, ein 
TTL-IC mit der Bezeichnung 74L8629, enthält 2 unabhängige 
vCOs. 

Ein VCO ist eim spannungsgesteuerter Oszillator. Durch eine 
an Steuereingang angelegte GBleichspannung kann die Frequenz 
in einem bestimmten Bereich verändert werden. 

Dieser Steusereingang ist für den VCO 1 der Pin i. Das Poti 
R27 an diesem Eingang erlaubt seine wenn auch geringfügige 
änderung der Ausgangsfrequenz. Da auch Quarze eine gewisse 
Toleranz haben, l4ß3t sich die Soll-Frequenz mit dem Poti 
genau einstellen. 

Der Ausgang des VCO ! ist der Pin 18. Die hier anliegende 
Frequenz wird direkt als Signal BCOLOR an den VIC geführt. 
Gleichzeitig gelangt das Signal an das IC U3Q. Dieses IC, ein 
74L8195, ist als Frequenzteiler geschaltet. Dieser Teiler hat 
ein einstellbares Teilerverhältnis. In Abhängigkeit der Pegel 
an den Pins 1, 9, 18 und 15 14ßt sich Jedes Teilerverhältnis 
zwischen lı1 und 15:1 einstellen. 

In unserem Fall ist das Teilerverhältnis auf 9ıl eingestellt. 
Die 17.734 MHz werden also durch 97 geteilt. Damit steht am 
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Ausgang Pin 6 eine Freauenz von 1.9704 MHz zur Verfügung. 
Diese Frequenz wird auf den Pin 11 des IC U29 geführt. 

U29 enthält 2 Flipflops. Mit jeder positiven Flanke des 
Clock-Signals an Pin 11 wird die am Dateneingang Pin 12 des 
Flipflops 1 liegende Information auf den Q-Ausgang Pin 9 
weiteroegeben. Der Ausgang -Q (Pin 8) hat dann auch die 
Eingangsinformation, nur mit invertierter Polarität. 

In der vorliegenden Beschaltung liefert die durch 9 geteilte 
Quarzfrequenz das Clocksignal für FFi. Der Dateneingang ist 
mit dem Ausaana -G verbunden. 

Wenn dieser -Q-Ausgang High ist, wird das High-Signal mit der 
nächsten positiven Flanke an Pin 11 auf den Q-Ausgang 
gegeben. Gleichzeitig wird der -O-Ausgang Low. Mit der 
nächsten positiven Taktflanke wird das Low an Q gelegt, -Q 
hat jetzt wieder ein High und so weiter. 

Besser sieht man diese Vorgänge im Bild auf der nächsten 
Seite. Hier sind die Freauenzen und Phasenlagen dargestellt. 


Mit jedem zweiten Taktimpuls wechelseln also die Ausgänge 
ihren Zustand. Das kommt einer Frequenzteilung durch den 
Faktor 2 aleich, am Ausgang erscheint eine Frequenz von 
985,248 KHz. Das ist die Taktfrequenz des Prozessors. 

Dieses Signal wird aber nicht direkt als Takt verwendet, die 
ganze Sache ist etwas komplizierter. 

Das Signal Dot Clock mit der Frequenz 7,86198 MHz läßt sich 
durch Frequenzteilung nicht aus der Quarzfrequenz ableiten. 
Darum muß ein anderer Weg beschritten werden. die 
Frequenzsynthese mit einer PLL-Schaltung. 

PLL bedeutet Phase Locked Loop, übersetzt etwa 
Phasengeregelte Schleife. 

Der PLL im 64 ist mit den ICs US2, U3J1 und dem VIC aufgebaut. 


Wichtigster Bestandteil eines PLL ist ein Phasencomparator 
mit zwei Eingängen. Dieser Phasencomparator liefert an seinen 
Ausgang eine Gleichspannung, die proportional der Phasenlage 
der beiden Signale ist. Diese Funktion ist mit dem IC US2 und 
dem Transistor 07 aufnebaut. 

Im Detail funktioniert die Sache etwa s0ı 

Am Eingang Pin 1 des US2 liegt eine Frequenz von 983 KHz, 
geliefert vom Ausgang des Flipflop U29. Am zweiten Eingang 
des PLL Pin 5 lieat das Bignal 80, das vom VIC gelieferte 
Taktsignal für den Prozessor, mit noch unbestimmter Frequenz. 


Dieses Signal Bo vom VIC stellt das durch B geteilte 
Ausgangssignal des VCO 2 im LUJ1I dar. Diese Freauenzteilung 
durch 8 findet direkt im VIC statt. 

Die Freauenz des VCO 2 wird nicht durch einen Quarz sondern 
durch einen Kondensator, den Cd, bestimmt. Die 
Steuerspannung des VCO 2 wird jetzt durch den Ausgang des 
Phasencomarators US2 geliefert. 

Wenn die Steuerspannung des VCO 2 ca 3 Volt beträgt, 
schwingt er auf einer Frequenz von 7,8819B MHz. 
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Die Taktsignale und Ihre Phasenlage 


Ouerufreg 
17.7394 HN 


Fin 6 UJ0 


Pin 9 023 


Dei Clock ?.08 ih 


Systontekt MN 
365 KHn 
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Wenn wir jetzt den Fall annehmen, daß die Frequenz des 
Flipflops U29 höher als die Frequenz Oo ist, der VCO 2 also 
beispielsweise nur mit 7.7 MHz schwingt, dann liefert der 
Ausaanca Pin 8 des Phasencomparators eine Spannung kleiner 3 
Volt, die den VCO mit einer höheren Frequenz schwingen läßt. 
Damit erhöht sich auch die Frequenz am Pin 3 der 
Phasencomparators, sie nähert sich der Referenzfreauenz am 
Pin 1, die Steuerspannung nähert sich den 3 Volt. 

Wenn die Frequenzen an Pin 1 und Pin 3 gleich sind, wird der 
VCO noch so lange geregelt, bis die Signale nicht nur 
frequenz- sondern auch phasengleich sind. 

Der selbe Vorgang läuft ab, wenn der VCO mit zu hoher 
Frequenz schwingt. Dann wird die Steuerspannung größer 3 
Volt. Jetzt schwingt der VCO langsamer und die Steuerspannung 
nimmt ab, bis die Signale frequenz- und phasengekoppelt sind. 
Dann liegt das Signal Dot Clock richtig an. 

Die geschilderten Regelvorgänge brauchen nur kurze Zeit. Nach 
spätestens 109 Millisekunden stehen alle Frequenzen zur 
Verfügung. 


Zum Abschluss noch eine kurze Schilderung der Funktion des 
FF2 und der Abläufe in einem 64 mit NTBC-Farbausgang. 

In diesen für den amerikanischen Markt produzierten Geräten 
ist zum einen 14.318180 MHz-Quarz eingebaut. 

Des weiteren ist ein anderer VIC-Chip, ein 6567, in der 
NTSC-Version eingesetzt. Bei der PAL-Version ist dies ein 
6569, 

Als drittes Merkmal ist die Drahtbrücke zwischen den Punkten 
Ei und E2 oder ES anders aeleat. Bei Pal-Geräten ist diese 
Brücke zwischen Ei und E2 geschaltet. Damit liegen die Pins | 
und 18 des Teilers U3® an +5 Volt. Auch der Pin 4 des IC U29 
liegt an High. 

Dieser Fin 4 ist der sogenannte Preset-Eingang an FF2. 
Clock-, Daten- und Clear-Eingang dieses FFs sind an Masse 
gelegt. Ein Low-Signal am Clear-Eingang versetzt das Flipflop 
in seinen definierten Zustand. Unabhängig von den anderen 
Eingangesignalen wird der Q-Ausgang Low, -Q dagegen High. 
kie bei so vielen anderen Gelegenheiten gibt es aber eine 
wichtige Einschränkung zu dem zuvor Gesagten. Der 
Preset-Eingang muss dafür High-Pegel haben. 

Diese Bedingung ist bei einem PAL-Gerät über die Drahtbrücke 
erfüllt. 

Die Eingänge 1, 9, 18 und i5 des Zählers U3O bestimmen binär 
codiert den Startwert des Zählers. Da der Zähler immer bis 16 
zählt, kann man mit dem BStartwert das Teilerverhältnis 
einstellen. Er beginnt dann nicht bei Bd, sondern mit dem 
programmierten Wert. 

Der Eingang A stellt das niederwertige Bit dar, Eingang D das 
höchstwertige Bit. An diesen Eingängen liegt dezimal 
ausgedrückt eine 7. Der Zähler zählt bis 16 weiter, und 
beginnt dann wieder bei 7. Für diesen Durchlauf benötigt er 97 
Zählimpulse, er teilt also durch 9. 

Damit stellt das FF2 nichts anderes als einen einfachen 
Inverter dar. Wenn der Eingang High ist, so ist der Ausgang 
Low und umgekehrt. die normale Inverterfunktion. 

Bei NTSC liegt der Preset-Eingang des U29 auf Low. Laut 
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Datenblatt haben jetzt sowohl G- wie auch -Q-Ausgang 
High-Pegel. eigentlich eim ungewöhnlicher Zustand, der das IC 
aber nicht beschädigt. 

Jetzt ist das Teillerverhältnis von USB 7tıl, mit dem 
nachfolgenden Flipflop 1411 und die Taktfrequenz des 
Prozessors beträgt damit 1.8227 MHz, geringfügig höher als 
die PAL-Arbeitsfrequenz. 
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Der Prozessor 


Wie scnon erwähnt ist der Prozessor des CEM #4 der 6510. 
Dieser neue Prozessor unterscheidet sich von dem bekannten 
6582 ın der Hauptsache durch einen im Prozessorchip 
integrierten Port. Dieser Port verfügt über & programmierbare 
IlO-Leı tungen (IO = Abkürzung für Input Dutput;3 Leitungen, die 
wahlweise ala Eingänge oder Ausgänge geschaltet sind). 

Die Zahl 6 ist im Zusammenhang mit B8-Bit-Prozessoren sicher 
etwas ungewöhnlich, Bei dem zur Verfügung stehenden 
40-polıgen Gehäuse waren aber nicht mehr Leitungen frei, um 
einen vollen 8-Bit-Port zu realisieren. 


Die 40 Pins des 4510 sind wie folgt belegtı 


Pin Bez. Funktion 
1 OIN Eingang, Systemtakt vom VIC Pin 17 
2 RDY Eingang, Ready von U27 Pin 3 
3 -IRQ Eingang, Interrupt Request 
4 =NMI Eingang. Non Maskable Interrupt 
5 AEC Eingang. Adress Enable Control 
6 vcc Betriebsspannung +3V 
7 Aa Ausgang, Adressbit 8 
bım 
20 A1S Ausgang, Adreusbit 13 
21 GND Betriebsspannung Masse 
22 A14 Ausgang, Adressbit 14 
23 A1S Ausgang, Adressbit 15 
24 PBS Ein-Ausgang, Portbit 5 
biw 
29 PB® Ein-Ausgang, Portbit 8 
sa D7 Ein-Ausgang, Datenbit 7 
bis 
37 DO Ein-Ausgang, Datenbit ® 
s8 R/-W Ausgang, Read/-Write 
39 22 Taktausgang Phase Two im folgenden 82 genannt 
40 -RES Eingang, Reset 
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Wie viele andere Prozessoren hat also auch der som, 


8-Bit-Daten- und einen 16-Bit-Adressbus. Somit kann der 
einen Speicherbereich von 64 K direkt adressieren. 


Die Signale DIN und 82 sind die Taktsfgnale des Systens, 
sozusagen der Herzschlag des Rechners. Das Signal BIN wird 
vom VIC erzeugt und hat eins Frequenz von ungefähr 983 KHz, 
Aus diesem Signal wird im Prozessor das Signal 82 erzeugt. 02 
ist für das Zusammmenspiel von Prozessor und Peripherie sehr 
wichtig, es stellt den Bezugstakt für alle Operationen des 
Prozessors dar. 


Das Signal -RES wird benutzt, um den Prozessor und andere ICs 
in einen definierten Anfangszustand zu versetzen. Diesr Reset 


findet im Einschaltmoment statt. 
Schauen wir uns diesen Einschaltmoment einmal etwas näher an. 


Das -RES-Signal wird vom IC U28 erzeugt. 
Dies IC, ein NESS$ enthält 2 identische Timer-Baustufen. 
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Mit diesen Timern kann man durch einfache sxterne Beschaltung 
Oszillator- oder Impulsgeberbaustufen aufbauen. In unserem 
Fall ist das IC als Impulsgeber geschaltet. 

Mit dem Anlegen der Betriebsspannung wird der Kondensator 
Cı25 über den Widerstand R5® aufgeladen. Gleichzeitig wird 
der kondensator C24 über den Widerstand RJ34 aufgeladen. 

Wenn nun nach einiger Zeit (einigen 18 Millisekunden) die 
Spannung am C185 den Wert von 1.6 volt (17/3 der 
Betriebsspannung ) übersteigt, nird der eigentliche Impuls 
gestartet. Der Kondensator C24 wird über den Anschluss 13 
schlagartig entladen. Gleichzeitig wird der Pin 9, der 
Ausgang des Timers, auf 5 Volt gelegt. Danach wird C24 über 
den Widerstand R354 wieder aufgeladen. Aber jetzt wird die 
Spannung durch den Eingang Pin 12 überwacht. 

In dem Moment, wo die Spannung 2/3 der Betriebsspannung (ca. 
3.3 Volt) übersteigt, wird der Ausgang wieder Low. Dieser 
Zeitpunkt ist nach etwa .5 Sekunden erreicht. Der am Ausgang 
Pin 9 des Timers befindliche Inverter macht aus diesem 
positiven Impuls einen Negativen. An seinem Ausgang steht das 
eigentliche -Res-Signal zur Verfügung. 

Im Moment des Wechsels von High nach Lon startet der 
Prozessor seine Arbeit. Als erstes holt er von den Adressen 
SFFFC und SFFFD (genannt Reset-Vektor) die Adresse des 
nächsten zu verarbeitenden Befehls. Auf dieser Adresse 
beginnt nun das eigentliche Betriebssystem. 


Der Pin mit der Bezeichnung R/-W signalisiert, ob der 
Prozessor einen Lese- oder einen Schreibzugriff vornimmt. 
Wenn diese Leitung High ist, liest der Prozessor Daten aus 
Ram, Rom oder Interfacechips. Bei seinem Low auf dieser 
Leitung schreibt der Prozessor, d.h. er speichert Daten im 
Jjewsils adressierten Baustein. Dieses Schreiben ist natürlich 
nur dann sinnvoll, wenn der adressierte Baustein diese Daten 
auch speichern kann. Auf ein Rom zu schreiben i wenig 
sinnvoll, da die Daten des Rom schon bei der Herstellung 
festgelegt werden und nicht veränderbar sind. 


Der Pin mit der Bezeichnung -NMI (Non Maskable Interupt = 
nicht maskierbare oder ausblendbare Unterbrechnung) gestattet 
eine Unterbrechung eines gerade laufenden Programms. 

Nicht Maskierbar bedautet, das der Interrupt immer zugelassen 
ist. Er ist durch Software nicht auszuschließen. 

Wann immer dieser Anschluß nach Masse gezogen wird, wird mit 
der Beendigung des grade abgehandelten Maschinensprache- 
befehls das laufende Programm verlassen. Der Prozessor holt 
vom NMI-Vektor ($FFFA und sSFFFB) die Adresse der 
Interrupt-Routine, und verzweigt auf diese. 

Der NMI kann im CBM 64 durch drei verschiedene Ereignisse 
ausgelöst werden. 

Der erste Fall ist das Drücken der RESTORE-Taste. 

Wird diese Taste gedrückt, dann erzeugt der zweite Timer des 
U28 einen geeigneten Impuls. 

Das Drücken der Taste entlädt den Kondensator c3s8 
schlagartig. Über den Widerstand RSS wird der Kondensator 
wieder aufgeladen, auch wenn die RESTORE-Taste noch gedrückt 
ist. Sobald die Spannunn am Pin 6 des U28 1.6 Volt 
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übersteigt, wird der eigentliche NMI-Impuls gestartet. Der 
Ausgang des Timers Pin 5 wird High, am Ausgang des Inverters 
U& erscheint ein Low-Pegel, der Kondensator C23 wird über den 
Pin 1 von U28 entladen und beginnt sich über RSI wieder 
aufzuladen. 

Nach ca. 18 Microsekunden ist der (23 auf 2/3 der 
Betriebsspannung aufgeladen und der Ausgang Pin 5 wird wieder 
Low, der -NMI-Eingang des Prozessors ist nieder High. 

Der zweite Fall wird durch die CIA U2 erzeugt. Der Pin 21 
dieses ICs kann beim Eintreffen bestimnter Ereignisse einen 
Low-Pegel annehmen. 

Die Erzeugung dieses -NMI wird im Abschnitt über die CIAs 
behandelt. 

Der dritte Fall ist das Kurzschlisßen des Anschluß D der 
Cartridge Expansion. Hier ‚können asterne Bausteine einen 
Interrupt auslösen. 


Dem -NMI ähnlich ist der -IRG (Interrupt ReQuest). Als 
wesentliche Unterschiede zum -NMI sind zua einen der 
Interuptvektor des -IRQ zu sehen. Dieser Vektor liegt auf den 
Adressen $FFFE und $FFFF. Des weiteren ist dieser Interrupt 
softwaremäßig ausschaltbar. 


Wenn im Prozessorstatusregister das I-Flag (Bit 2) gesetzt 
ist, werden alle auftretenden Interrupts ignoriert. 

Ein weiterer Unterschied zum -NMI ist die Tatsache, daß der 
-IRQ nicht flankengesteuert ist. Der Interrupt muss also 
mindestens so lange anliegen, bis der Prozessor diesen 
Anschluss prüft. 

Erzeugt wird der -IRO auch wieder auf drei verschiedene 


Arten. 

Die CIA Ul erzeugt an seinem Pin 21 genau wie die CIA U2 
einen Low-Pegel beim Erreichen bestimmter prograanierbarer 
Zustände. Dieser Low-Pegel erzeugt einen -IRQ am Prozessor. 
Die zweite Möglichkeit der Interrupterzeugung ist der VIC. Am 
Pin 8 des VIC erscheint genau wie bei den ClAs beim Erreichen 
bestimmter, vorher durch Programmierung testgelegter 
Ereignisse ein Lonpegel und damit der -IRQ. 
Die dritte Möglichkeit der -1IRQ-Erzeugung besteht in 
Kurzachlieden des Anschlusses 4 des Cartridge Expansion 
Steckers (CN6). Somit haben auch externe Schaltungen die 
Möglichkeit der -IRQ-Generierung. 

Der RDY-Pin zeigt dem Prozessor, ob die auf dem Datenbus 
liegenden Informationen gültig sind oder nicht. 

Immer wenn dieser Pin Low ist, wird dem Prozessor 
signalisiert, daß er die Daten noch nicht übernehmen Pa 
Der Prozessor geht darın in einen sogenannten Wartezustand un 
stellt seine Aktivitäten kart er Aare nur mit jeden 
Taktimpuls, ob der RDY-Pin wieder 9 . 

In äleeren Frözeaseravatasın wurde diese Möglichkeit genutzt, 
um langsame Epeicher- und Peripheriebausteins am Pr 
anzuschließen. Im CBM 64 wird dies Signal vom VIC genutzt. R 
Normalerweise geschieht der Zugriff des VIC auf das Ran ME 
in den vom Prozessor nicht genutzten Taktlücken (82 = Low ; 
Bei bestimmten Operationen des VIC, z.B. ne, E 
Sprites, benötigt der VIC mehr Zeit als in den Taktlücke 
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Verfügung steht. Dann erzeugt der VICE am Anschluß BA (Bus 
Available) ein Low, welches über das AND-Gatter U27 an den 
RDY-Eingang des Prozessors geführt wird, worauf der Prozessor 
den Bus dem VIC für die benötigte Zeit zur Verfügung stellt. 


AEC ist ebenfalls ein in der Grundkonfiguration vom VIC 
erzeugtes Signal. 

Immer nenn der VIC den Bus belegt, wird dieser Anschluß DB. 
Dieses Low-Signal wird an den AEC-Pin des Prozessors geführt 
und bewirkt, daß der Prozessor seine Busleitungen in einen 
hochahmigen, den sogennanten Tri-State-Zustand versetzt. In 
der Praxis wirkt das, als ob der Prozessor gar nicht in 
seinem IC-Sockel säße. Solange AEC Lon ist, bleibt dieser 
Zustand erhalten und andere ICs. z.B ein externer Prozessor 
oder der VIC können den Systembus belegen. 


Der im Prozessor integrierte Port belegt die Pins 24 bis 29. 
Im CBM 64 werden verschiedene Aufaaben von diesem Port 
übernommen. Im Einzelnen sind das die folgenden Funktionanı 
Das Portbit 8 trägt die Bezeichnung -LOWRAM. Dieses Bit 
schaltet im Adressbereich $SABOBO bis SbFFF zwischen RAM und 
ROM.d.h. bei Low-Pegel ist in diesem Adressbereich RAM 
singsschaltet. 

Portbit I mit der Bezeichnung -HIRAM übernimmt die selbe 
Funktion im Adressberesich von $EBBB bis #FFFF. 

Portbit 2 mit der Bezeichnung -CHAREN selektiert, wenn es 
einen Low-Pegel hat, das Character-ROM. 

Character-ROM und der sogenannte IO-Bereich belegen den 
nealben Adressbersich von $DB88 bis SDFFF. über -CHAREN wird 
also entschieden, ob das Character-ROM oder die den gleichen 
Adressbereich benutzenden IO- oder Peripherie-Bausteine VIC, 
SID oder ClAs selektiert sind. 


Die drei verbleibenden Bits sind für den Betrieb der 
Datasette reserviert. 


Die Schreibdaten für die Datasette werden vom Portbit 3 
geliefert. Dieser Prozessorpin wird direkt auf die Anschlüsse 
E und 5 des Cassettenports geführt. 

Portbit 4 (Cass Sense) überprüft, ob an der Datasette die 
Play-Taste gedrückt ist. Dieses Bit liegt direkt an den 
Anschlüssen F und 6 des Cassettenports. 

Die Motorsteuerung des Recorders wird von Bit 5 übernommen. 
Die Funktion der Motorsteuerung wurde schon im Kapitel 
Stromversorgung erläutert. 
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Adressdekodierung 


Da der 6518 nur seinen Adressraum von 64 K verwalten kann, 
dieser aber schon von den 64 K RAM belegt wird, muß eine 
zusätzliche Logik die Verwaltung der sich teilweise 
überlappenden Speicherbereiche übernehsen. Diese Verwaltung 
ist in der Hauptsache in einem speziellen IC integriert, den 
sogenannten Adress-Manager. Im Schaltplan trägt dies IC, ein 
FPLA (Field Programmable Logic Array), die Bezeichnung U17. 
Erst durch die Programmierung hat dies IC seine besonderen 
Logikeigenschaften erhalten und ersetzt eine große Anzahl 
verschiedener Gatter, die nötig wären, wollte aan die 
Funktion des AM mit herkömmlichen ICs nachbilden. 


Die Pin-Belegung dieses 28-poligen ICs sieht folgendermaßen 
aus: 


Pin Bez. Funktion 

1 FE Nicht benutzt 

2 17 Eingang, A1S vom 4518 Pin 28 

Ss Is Eingang, A14 vom 651B Pin 22 

4 15 Eingang, AiS vom 6518 Pin 23 

s 14 Eingana, -VAl4 vom CIA 2 Port A Bit B Pin 2 
6 13 Eingang, -CHAREN vom 6&518-Port Bit 2 Pin 27 
7 I2 Eingang, -HIRAM vom 6518-Port Bit 1 Pin 28 
8 Il Eingang, -LOWRAM vom 6518-Port Bit 8 Pin 29 
7 Io Eingang, -CAS vom VIC Pin 19 

10 F7 Ausgang, -ROMH zum Expansion Slot Pin B 

11 F& Ausgang, -ROML zum Expansion Slot Pin Il 

12 FS Ausgang, -I/O zum Decoder U1S5 Pin 1 

13 F4 Ausgang, GR/-W zum Farbram U6 Pin 18 

14 GND Betriebsspannung Masse 

15 FS3 Ausgang, -CHAROM zum Character-Roa US Pin 28 
16 F2 Ausgang, -KERNAL zum Kernal-Rom U4 Pin 28 
17 Fi Ausgang, -BASIC zum Basic-Rom US Pin 28 

ı8 Fa Ausgang, -CASRAM zu den Raas Pin 15 

19 -0E Eingang, Output Enable an Masse 

28 115 Eingang, -VAiZ2 vom VIC Pin 28 

21 114 Eingang, -VA13S vom VIC Pin 29 

22 113 Eingang, -GAME vom Expansion Slot Pin 8 
23 112 Eingang, -EXROM vom Expansion Slot Pin 9 
24 I1i Eingang, R/-W vom 6518 Pin 38 

25 119 Eingang, -AEC vom VIC Pin 16 

26 19 Eingang, BA vom VIC Pin 12 

27 I Eingang, Ai2 vom 6518 Pin 19 
28 Vcc Betriebsspannung +5 V 


Was bewirken jetzt die verschiedenen Eingangssignale an den 
Ausgängen des AM? Bei 1& Eingangsleitungen sind ja imaerhin 
65536 verschiedene Eingangskombinationen möglich. Da der AM 
Jedoch nur 8 Ausgänge besitzt, ist schon ersichtlich, das 
jeweils mehrere Eingangskombinationen eine bestimmte 
Ausgangskombination bewirken. 


Aber auch unter den 256 möglichen Ausgangskombinationen wind 
nur wenige für den Computer wirklich sinnvoll. Diese 
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sinnvollen Kombinationen sind zur besseren übersichtlichkeit 
in der Tabelle auf S. 55 und den anschlielenden Seiten mit 
den Speicherzuordnungsplänen dargestellt. 


übrigens, wenn jede mögliche Eingangskombination und die 
dazugehörige Ausgangskombination weine Zeile einer Seite 
belegen würde, dann hätte eine vollständige Liste bei dem von 
uns verwendeten Druckformat immerhin einen Umfang von fast 
1895 Seiten. 
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Der Videocontroller 6569 


Die beiden wichtigsten Peripherie-GBeräts seines Conputers sind 
Eingabe- und Ausgabe-Einheiten, da sie die Möglichkeit 
schaffen, mit dem Computer in Verbindung zu treten. 

Die Ausgabe-Einheit des CBM 64 ist in der Regel der Fernseher 
oder ein Monitor. 

Der VIC stellt im CBM &4 alle #ür den Betrieb eines 
Fernsehers oder Monitors benötigten Signale zur Verfügung. 
Dies sind die Sync- und Helligkeitsimpulse und die für 
Farbdarstellung benötigten Farbwerte. 


Zusätzlich übernimmt der VIC aber noch andere Aufgaben. So 
erzeugt er den von der CPU benötigten Takt, übernimat den bei 
den verwendeten dynamischen RAMs notwendigen Refresh und 
liefert Steuersignale für den Betrieb der dynamischen RAMs. 


Diese Funktionen sind alle in einem 4B-poligen Gehäuse 
untergebracht. Die Belegung der Pins ist in der folgenden 
Tabelle dargestellt. 


Pin Bez. 
1 D& Prozessordatenbus 
bis 
7 Da Prozessordatenbus 
8 -IRQ Ausgang, Interrupt Request 
9 -LP Eingang, Light Pen 
10 -C$ Eingang, Chip Select 
11 R/-W Read/-Write 
12 BA Bus Available 
13 VvDD Betriebsspannung +12 Volt 
14 COLOR Ausgang, Farbinformation 
15 SYNc Ausgang, Zeilen- und Bildsynchronisations- 
impulse 
16 AEC Ausgang, Adress Enable Control 
17 B0UT Ausgang, Systemtakt 
18 -RAS Ausgang, Row Adress Select 
19 -CAS Ausgang, Colum Adress Select 
20 GND Betriebsspannung Masse 
21 BCOLOR Eingang, Farbfrequenz 
22 BIN Eingang, Dotfrequenz 
23 All Prozessoradressbus 
24 AB/AB gemultiplexter (Video-) Ran-Adresebus 
bis 
27 AS/A1IS gemultiplexter (Video-) Ran-Adressbus 
sa Ab (Video-) Ram-Adressbus 
s1 A7 (Video-) Ram-Adressbus 
32 Ag Prozessoradressbus 
bis 
34 A1D Prozessor adressbus 
35 Dii Datenbus Farbram 
bis 
38 D8 Datenbus Farbram 
37 D7 Prozessordatenbus 
48 vec Betriebsspannung +5 Volt 
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Wenn Sie sich die verschiedenen Pin-Bezeichnungen am VIC 
anschauen, dann treffen Sie auf einige bekannte 
Bezeichnungen. So sind BA, AEC, 82, und R/-W schon beim 
Prozessor erläutert worden. Völlig neu sind z.B. die Signale 
-CS, -RAS, -CAS und die Datenleitungen DB - Dil. Auch der 
gemultiplexte Adressbus ist neu hinzugekommen, da am 
Prozessor ja alle Adressignale getrennt an einzelnen Pins zu 
Verfügung standen. 


Doch kommen wir zuerst zu den verschiedenen Taktsignalen. 

Das den ganzen Zeitablauf im Rechner bestimmende Signal ist 
der Dot-Clock. Dieses Signal hat in Ihrem CBM 64 eine 
Frequenz von ca. 7.85 MHz. Im VIC befindet sich eine Stufe, 
die diese Frequenz durch 8 teilt. Damit erhalten wir eine 
neue Frequenz von ca. 988 KHz. Diese Frequenz steht am Pin 17 
als Systemtakt BOut zur Verfügung. 

Aus dem Dot-Clock werden weiterhin die Signale zur 
Synchronisation des Bildes auf dem Fernseher gewonnen. Der 
Dot-Clock selbst bestimmt die Zeit, mit der die winzelnen 
Punkte, aus denen alle Zeichen dargestellt werden, auf dem 
Bildschirm erscheinen. 


Die Frequenz des Signals GBCOLOR beträgt in Ihrem CBM 64 
17.734472 MHz. Das ist die Frequenz mit der der Quarz Y1i 
schwingt. Sie wird zur Erzeugung der Farbinformation 
benötigt. 


Diese Frequenzen beziehen sich alle auf den Normalfall, d.h. 
der Rechner ist für den Betrieb mit einem 
PAL-System-Fernseher ausgestattet. 


Immer wenn der Prozessor auf die Register des VIC zugreifen 
will, muß der VIC adressiert werden. Dazu muß als wichtigstes 
die Leitung mit der Bezeichnung -CS auf Low gehen. Erst dann 
kann der Prozessor über die auf dem Adressbus limsgende 
Adresse das gewünschte Register ansprechen. Wie wird nun aber 
die Leitung -CS Low. 

Da der VIC im sogenannten IO-Bereich (SDO80 bis SDFFF) die 
Adressen von sD888 bis SDISFF belegt, erzeugt der AM bei einem 
Zugriff auf diesen Adressbereich seinen Low-Pegel an seinem 
Pin 12 (-1/0-Signal). Dieser Low-Pegel gelangt an den Dekoder 
US Pin 1. Damit ist der Dekoder freigegeben und in 
Abhängigkeit von den Adressleitungen AiB und Ali an den Pin 2 
und 5 wird der entsprechende Ausgang des Dekoders Low. 

Wenn man die Basisadresse und Endadresse des VIC einmal binär 
darstellt, so erhält man das folgende Bitmustarı 


mn A1l4 AIS AlZ2 All AB AI AB A7 Ab AS AA AS AZ Al AD 


u 1 a 1 o oa ae ep Bı—pnd 8 08 8 DB B=sDaoo 


1 ı L.) 1 oe 8 ı ı ı ı 1 1 1 1 1 i=sDSFF 


Man sieht sofort, das die Adressbits AlB und All in diesem 


BT. 


Adressbereich Low bleiben. Damit ist der Augang YB des 
Dekoders auf Low, der VIC ist adressiert. 

Erst bei der nächsten Adresse $D488 wird A1B High. Damit wird 
YB High, Yi des Dekoders wird Low und nun ist der SID 
adressiert. 


Der VIC kann nur einen Adressraum von 16 K adressieren, er 
hat nur die Adressbits AB bis AIS. Außerdea liegen die 
Adressleitungen nicht wie beim Prozessor sinzeln an den Pins 
an, sondern sind qaemultiplext. Der Pin 24 ist also nicht nur 
Adressbit 8 sondern auch Adressbit 8. wie kann das 
funktionieren? 

Die Antwort ist ganz einfach. Der Anschluss ist erst das eine 
Adressbit. danach das andere. Um jetzt zu einem bestimmten 
Zeitpunkt sagen zu können, welche Bedeutung der Anschluß hat, 
werden Hilfssignale benötigt. 

Diese Hilfssignale heißen -CAS und -RAS. Sie werden unter 
anderem auch zur Steuerung der dynamischen RAM-Bausteine 


benötigt, da diese auch einen gemultipexten Adressbus 
aufweisen. 
Der zeitliche Ablauf des Speicherzugriffs sieht 


folgendermaßen aus. 

Die Signale -CAS und -RAS sind high. Jetzt wird zuerst das 
niederwertige Adressbyte auf den Bus gelegt. Nach kurzer Zeit 
wird das Signal -RAS Low. Damit wird das Adressbyte in die 
RAM=s übernommen und gespeichert. Jetzt ändert sich die 
Businformation. Aus AB wird AB, aus Al wird AF usw. Wiederrum 
nach kurzer Zeit wird jetzt das Signal -CAS Low. Diese 
abfallende Flanke wird auf den AM gegeben und erzeugt an 
Ausgang -LASRAM eine zeitlich geringfügig verzögerte 
“bfallende Flanke. Mit dieser verzögerten Flanke wird nun das 
High-Byte in die RAMs übernommen. 

Jetzt liegt die vollständige Adresse vor und die Daten 
erscheinen auf dem Datenbus. Diese Vorgänge sind in 
Timing-Diagramm auf der nächsten Seite noch einmal 
dargestellt. 


Die Schnittstelle zwischen RAM und VIC. 


Da wie schon gesaat der VIC nur die Adressbits AD bis > 
erzeugt, müssen die für die Adressierung der ganzen 64 k an 
fehlenden Bits zusätzlich erzeugt werden. 


Dazu wird der Port A der CIA 2 herangezogen. Die Portbits _ 
und 1 stellen die Adressbits 14 und 15 dar. Um ame Alanaie 


in den Multiplex-Vorgang einzubeziehen, werden sie 
IC U14 geschaltet. . 
Im U14 sind vier invertierende 2 zu 1 Multiplexer integriert. 
So ein Multiplexer ist in seiner Funktion wohl am einfachsten 
als Wechselschalter zu sehen. Wahlweise einer von zwei 
Eingängen wird auf den zugehörigen Ausgang geführt. 

Im Detail funktioniert die Sache soı 

Geschaltet werden die Multiplexer durch das Signal am Eingang 
S. Liegt an S ein Low, dann sind die Eingänge mit der 
bezeichnung A auf den Ausgang durchgeschaltet, liagt 3 auf 
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Phasenlage der Bussteuersignale 


DOT CLOCK 


cas 


ERSRAN 
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High-Pegel. dann sind die B-Eingänge durchgesschaltet. 

Die Adressbits A& und A7 vom VIC liegen am Multiplexer, und 
zwar A& an den Eingängen 13 und 14 und A7 an den Eingängen 18 
und 11. Wenn jetzt mittels des S-Signals zwischen den 
Eingängen hin- und hergeschaltet wird, so ist an den 
Ausgängen keine änderung festzustellen, da die Adresmbits auf 
beide Eingänge geführt sind. Nur die Polarität der Signale 
ist an den Ausgängen durch die Inverterwirkung der 
Multiplexer vertauscht, Diese invertierten Adressignale 
werden auf die B-Eingänge der beiden anderen Multipexer 
geführt, und zwar -A& an den Pin 3 und -A7 an den Pin 6. Die 
A-Eingänge werden mit den genannten Portbits der CIA 2 
versorgt, Portbit DB als -VA1l4 an Pin 2, Portbit 1 als -VAIS 
an Pin 5. 

Da der S-Eingang von -CAS gesteuert wird, liegt am Ausgang 
Pin 4 bei -CAS High das nochmal invertierte Adressbit Aö, bei 
-CAS Low das Adressbit Aid. Am Ausgang Pin 7 wird entspechend 
zwischen -A7 und -VA1S geschaltet. Durch die Invertierung des 
Multiplexers erscheint dies Signal als A7 oder AIS. 


Der Pin 15 von U14 ist mit dem Signal AEC verbunden. Er trägt 
die Bezeichnung -OE, Output Enable. 

Immer wenn AEC High ist, werden die Ausgänge des U14 
abgeschaltet oder in den sogenannten Tri-State-Zustand 
versetzt. Dies ist wichtig. da bei AEC High der Prozessor den 
Bus belegt und seine Adressen über die Multiplexer Ui und 
U25 auf diesen Bus leat. Nur wenn AEC Low ist, kann der VIC 
ja den Bus belagen, dann sind die Ausgänge des u14 
freigeaeben. 


16 Farben mit vier Bits, das Farb-Ram. 


Sollen alle S12 möglichen Zeichen auch noch in 16 
verschiedenen Farben dargestellt werden, dann sind vier 
weitere Datenbits erforderlich. Es sind dies die vier Pins 35 
bis S8 am VIC. An diesen Pins ist das Color-Ran U6 mit seinen 
Datenleitungen angeschlossen. Dies IC ist ein statisches RAM 
mit 4996 Speicherplätzen. In jedem Speicherplatz kann ein Bit 
gespeichert werden. Jeweils 4 Speicherplätze werden durch 
eine Adresse angesprochen. 

Die Adressierung geschieht zuerst wieder durch das Signal -C8 
am U&. Wenn dieserAnschluss Low ist, wird das RAM selektiert, 
die Datenleitungen verlassen den Tri-State-Zustand. 
Erzeugt wird das -CS-Signal auf zwei verschiedene Arten 
AND-Gatter U27. So seltsam es auch klingen aag, dieses 
AND-Gatter wird in der Schaltung als ein OR-Gatter betrieben. 
Ein AND-Batter legt den Ausgang dann auf High, wenn alle 
Eingange auch High sind. Wenn man jetzt die Logik ein wenig 
umdreht, kann man auch sagen, wenn der sine ODER der ander 
Eingang Low ist, dann ist der Ausgang auch Low. Diese 
Betriebsart wird im CBM 64 angewendat. 
Das Color-Ram belegt den Adressbereich von $DEBB bis SDBFF. 
Wenn das Signal AEC High ist, belegt der Prozessor den Bus. 
Damit ist der eine Eingang des AND-Gatters High. kenn der 


vom 
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Prozessor nicht auf das Calor-Ram zugreift, ist der Ausgang 
-COLOR des Dekoders UIiS auch High. Damit ist der -CS-Eingang 
des Color-Ram auf High, das Farbram ist nicht selektiert. 
Wenn der Prozessor auf das Farbram zugreifen will, legt er 
die entsprechende Speicheradrasse auf den Datenbus. Die 
Dekodierung läuft entsprechend wie die des VIC ab. Nur ist 
Jetzt mit Sicherheit das Adressbit All gesetzt. Damit wird 
der -COLOR-Ausgang des Dekoders U15 Low. Jetzt ist ein 
Eingang des AND-Gatters Low und entsprechend der Ausgang 
auch. Damit ist das Farbram selektiert. 

Da AEC zu diesem Zeitpunkt High ist, sind die vier 
Analogschalter im IC Ul6 geschlossen, die Datenleitungen des 
Farbram sind mit den vier niederwertigen Datenleitungen des 
Prozessors verbunden. Damit kann nun das Farbram beschrieben 
und gelesen werden. 

Wenn AEC Low wird und der VIC den Bus übernimmt, dann werden 
die Analogschalter geöffnet. Gleichzeitig wird der Ausgang 
des AND-Gatters U27 Pin B Low, das Farbram ist selektiert, 
diesmal vom VIC. Da der VIC aber nur mit den Adressleitungen 
AB bis Ali mit dem VIC verbunden ist, müssen die Adressbits 
AB bis A7 anders gewonnen werden. Diese Aufgabe übernimmt das 
IC U26. Dies TTL-IC mit der Bezeichnung T74LS373 enthält 8 
Latches oder Zwischenspeicher. Die Eingänge dieses ICs sind 
mit dem gemultiplexten Adressbus verbunden. Eingespeichert 
werden die Daten, wenn das Signal -RAS Low wird. Das ist der 
Zeitpunkt, wenn das niederwertige Adressbyte auf dem Bus 
liegt. Die Ausgänge von UWli6 sind mit dem niederwertigen 
Adressbyte des Prozessorbusses verbunden und liefern die 
Adressinformationen, wenn der Prozessor im Tri-State-Zustand 
ist. 

Auf diese Weise kann der VIC das Farbram adressieren. 

Auch der Zwischenspeicher ist mit dem Signal AEC verbunden. 
Am Pin 1 des Ul& bewirkt es im High-Zustand, dan die Ausgänge 
hochohmig werden um den Prozessor nicht zu stören. 

Wenn man sich diese Vorgänge genauer anschaut, ergibt sich 
eine interessante Frage. Wieso hat der VIC zusätzlich zum 
gemultiplexten Adressbus AB bie AS noch die vier 
Adressleitungen AB bis All an den Pins 25, 32, 33 und 34 ? 
Die Antwort ist relativ simpel. Der VIC muss zu Jeder 
Bilschirmspeicheradresse im Bereich von $8400 bis #O7FF 
gleichzeitig die entspechende Farbspeicherzelle im 
Adressbereich sD8808 bis sDBFF ansprechen. Dieser 
gleichzeitige Zugriff auf zwei verschiedene Speicherplätze 
erfordert einen zweiten, vom normalen Adressbus unabhängigen 


Bus. Dieser Bus wird durch die 4 separaten Adressbite 
realisiert. 
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Der Character-Generator. 


Um auf dem Bildschirm ein einzelnes Zeichen darzustellen, 
werden 8 * B Punkte benötigt. Da ein Byte B Bits enthält, 
sind zur Darstellung also B Bytes nötig. 

Das hört sich natürlich etwas verwirrend an, im Bildspeicher 
"ird ja pro Zeichen nur ein Byte belegt. 

An einem Beispiel wollen wir uns das Ganze einmal etwas 
genauer anschauen. Damit werden die Zusammenhänge etwas 
klarer 

Betrachten wir einmal den Buchstaben A. 

Löschen sie den Bildschirm (Gleichzeitiges Drücken der 
"SHIFT'- und 'CLR/HOME'-Taste) und dann drücken Sie die Taste 
A. Jetzt schauen Sie sich das Ergebnis einmal ganz genau an. 
Abhängig von der Qualität Ihres Fernsehers oder Monitors 
werden Sie mehr oder weniger das genaue Punktemuster dieses 
Zeichens erkennen können. 

Ganz aenau sieht das A so aus: 


12345678 


A. ec... 
B. PR EEE SEE Zr 
C. a “*. 
D. PR zur Zur Er Sr er 
E. Pur Se 
F. De SE EP 
G. Pe Ve Tee 


In den Reihen A bis H repräsentiert jedes '*° sin High des 
entsprechenden Bits, ein °.’ entspricht einem Low. Jede Reihe 
enthält somit B Bits, ein Byte. Bei 8 Reihen kommen wir damit 
nach allen Regeln der Mathematik auf 8 Bytes pro 
dargestelltes Zeichen. Diese 8 Bytes sind im Charakter-Rom 
espeichert. . 
gene sehen können, enthält der im Bildschirmspeicher 
stehende Code nicht direkt das Zeichen. 

Tatsächlich ist dieser Bildschirmcode eine Adresse, und zwar 
die Grundadresse des Zeichens im Charakter-Ron. Um aber alle 
8 Adressen eines Zeichens im CH-ROM zu adressieren sind 3 
weitere Adressleitungen nötig. Diese Aufgabe übernehmen jetzt 
die drei Leitungen AB bis AiB des separaten Adress-Busses. 
All, die noch freie Leitung dieses Adressbusses erfüllt eine 
besondere Aufgabe. 
Der Bllusehirmensichen kann ein Byte gleich 8 Bit speichern. 
Damit sind 256 verschiedene Zeichen im CH-ROM adressierbar. 
Der 64 kann aber 512 verschiedene Zeichen darstellen. 

Die Organisation der 512 Zeichen im 64 sieht etwa 
folgendermaßen aus. 


ü ü ; i ätze. Der erste, 
Der CBM 64 verfügt über 2 mögliche Zeichens 
nach dem Einschalten benutzte Zeichensatz ‚erlaubt 5 ae 
Darstellung von Großbuchstaben und Grafikzeichen. afür 


werden 128 Zeichen benötigt. Zusätzlich sind alle ya 
auch revers darstellbar, macht zusammen 256 mögliche Zeichen. 
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Die zweite Darstellungsart wird durch gleichzeitiges Drücken 
der Commodare- und der ’SHIFT’-Taste eingeschaltet. Dieser 
Zeichensatz erlaubt die Darstellung der Klein- und 
Großbuchstaben. Auch das sind wieder 128 verschiedene 
Zeichen, die zusätzlich noch revers dargestellt werden 
können, insgesamt also 512 verschiedene Zeichen. 

Dieses Umschalten znischen den beiden Zeichensätzen wird mit 
dem noch freien Adressbit All vorgenommen. 


Der Prozessor und das Ram. 


Bisher haben wir uns nur mit dem Fall beschäftigt, das der 
VIC auf die 64 K Arbeitsspeicher zugreifen will. Es fehlt 
noch die Beschreibung der Vorgänge bei einem Zugriff des 
Prozessors auf dieses Ram. 

Die Lesezugriffe des Prozessors sind den Zugriffen des VIC 
sehr ähnlich. In beiden Fällen liegt das Signal R/-W (lesen 
bei High, schreiben bei Low) auf High. 

Zuerst darum die Lesezugoriffe. 

Wie bei der Beschreibung der Ram-VIC-Schnittstelle erläutert, 
benttiot das Ram einen gemultiplexten Adressbus. Diese 
Forderung der Rams kann der Prozessor aber nicht erfüllen. 
Darum ist ein Multiplexen mit zusätzlichen ICs notwendig. 
Diese Multiplexer sind die ICs UlS und U25, zwei 741L5257. 
Diese ICk arbeiten nach dem selben Prinzip wie das U14 
(beschrieben im Abschnitt RAM und VIC). Der Unterschied zu 
U14 besteht darin. daß diese Multiplexer die Ausaangssianale 
nicht invertieren. 

An den Eingängen der beiden Multiplexer-ICs liegt der 
komplette Prozessoradressbus AB bis A1iS. Dabei sind die 
Eingänge so geschaltet, das mit dem Select-Signal jeweils 
zwischen AB und AB, Al und A9 u.5.w. umgeschaltet wird. 

Die Adressierung der Rams läßt sich wieder in drei Phasen 
zerlegen. 

In der ersten Phase liegt am Select-Eingang der Multiplexer 
ein High. Damit ist das niederwertige Adress-Byte auf die 
Rans geschaltet. 

Mit der abfallenden Flanke des -RAS-Signals wird dies Byte in 
die RAMs übernommen. 

Kurze Zeit später wird auch das -CAS-Signal Low. Damit 
schalten die Multiplexer um, der jeweils zweite Eingang der 
Multiplexer wird auf die entsprechenden Ausgänge geschaltet 
und das höherwertige Adressbyte liegt an den RAMs. 

über den AM wird das Signal -CAS wieder etwas verzögert. Der 
Ausgang -CASRAM übernimmt auch hier die eigentliche Funktion 
des Signals -CAS. 

Mit der abfallenden Flanke vom -CASRAM wird nun das High-Byte 
der Adresse in den RAMs gespeichert. 

Jetzt wird in den RAMs die adressierte Speicherzeslle 
angesprochen und die Daten erscheinen auf dem Datenbus. 


Die Schreibzugriffe des Prozessors unterscheiden sich von den 


Lesezyklen durch einen wesentlichen Umstand. 
Bei einem Schreibzugriff wird der Prozessor-Pin R/-W Low, 
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nachdem der Prozessor die Adresse der entsprechenden 
Speicherzelle auf den Adressbus gelegt hat. Damit ist dem RAM 
signalisiert, daß das auf dem Datenbus liegende Byte in 
dieser Speicherzelle gespeichert werden soll. 

Die verwendeten RAM-Bausteine stellen an dies R/-W-Signal 
eine bestimmte Bedingung. 

Das Signal R/-W darf erst dann Low werden, nachdem -RAS Low 
geworden ist. -CASRAM aber noch High ist. R/-W muss also 
zwischen den beiden abfallenden Flanken von -RAS und -CASRAM 
Low werden. 


Der zeitliche Verlauf der -RAS-, -CAS- und -CASRAM-Signale 
ist mit denen bei Lesezugriffen identisch. 


Zur besseren Verdeutlichung dieser Vorgänge sind die Signale 


für Schreib- und Lesezugriffse in den Bildern auf der nächsten 
Seite dargestellt. 


3@7 


Schreibzugriff auf das dyn. RAM 


RAS 


cas 


CASRAH 


388 


Muliiplex- 


Rdressbus hip) 
der RAMe Lowadresebyie 


Datenbus 
der RAM» 
Ausgang 


unbesilami 


(6) Highadressbyte 


Trti-Steto-Zustiand 


Dalenbus 


Eingang 


euıjesqun pusrenz 


twejjeequn 


W 


HB 


raujjequn pusgenz 


puwgenz-eje:6- 14] 


Y 


"ufp 


svp yne yyıı1ßbnzese 


ıdqeesespuno] TE 


3LI[YA/OU3N 


Buw9uız 


“uuy ı°ep 
enqueyeg 


duwBdeny 


“uuy ap 
enqueyeg 


“Huy dep 
engessupy 


-xerdıyny 
o 
[-] 
m 
WUuSuJ 


SuJ 


Suy 


Der SID 6581, ein Syntesizer mit 28 Beinen und mehr. 


Dieses IC ist genau wie der VIC ein Paradebeispiel für die 
Möglichkeiten der Halbleiterindustrie. Durch dies IC erhält 
der CBM 44 seine fantastischen Klangmöglichkeiten. 

Vor wenigen Jahren hätte allein ein Syntesizer mit diesen in 
einem IC integrierten Möglichkeiten die ganze Leiterplatte 
des 64 für sich in Anspruch genommen. 


Die 28 Pins des 4581 haben die folgenden Bezeichnungen: 


Pin Bezeichnung 

1 CAPIA Externer Kondensator für Frequenzfilter 
2 CAP1B Wie Pin 1 

3 CAP2A Wie Pin i 

4 CAP2B wie Pin 1 . 

5 -RES Eingang, Reset-Signal 

& 82 Eingang, Taktsignal 

7 R/-W Eingang, Read/-kWrite 

8 -CS Eingang, Chip Select 

9 AB Eingang, Adressbit 8 

bis 

15 Aa Eingang, Adressbit 4 

14 GND Betriebsspannung Masse 

15 DD Datenbit B, bidirektional 

bis 

22 D7 Datenbit 7, bidirektional 
23 POTY Eingang. AD-Wandler 2 

24 POTX Eingang, AD-Wandler 1 

25 Vce Betriebsspannung +5V 

26 EXT IN Eingang, externe Signalquelle 
27 AUDIO OUT Ausgang Syntesizer 

28 vdd Betriebsspannung +12V 


Die meisten Signale sind bereits aus den vorherigen 
bekannt. 

Nicht vorgekommen sind bisher die Bezeichnungen der ersten 
vier Pins, CAPIA bis CAP2B. Wie man im Schaltbild sehen kann, 
sind an diesen Anschlüssen die 2 Kondensatoren C1i®B und Cii 
angeschlossen. Diese Kondensatoren werden für die im Chip 
U18, dem SID, integrierten Frequenzfilter benötigt. 
Ein Filter ist eine uns allen bekannte Einrichtung. 
wir zum Beispiel mal das Kaffee-Filter. Die Aufgabe 
Filters ist es, bestimmte Anteile (nämlich das Wasser und die 
löslichen Stoffe des Kaffee-Pulvers) durchzulassen und andere 


Anteile (in unserem Beispiel die Reste des Kaffee-Pulvers) 
zurückzuhalten. 


Genau so arbeitet auch ein elektronisches 
Bestimmte Frequenzen werden durchgelassen, 
zurückgehalten. 

Es gibt insgesamt vier mögliche Arten von Frequenzfiltern, 
den Tiefpass, den Hochpass, den Bandpass und den Sperrpass. 
Ein Tiefpass läßt nur tiefe Frequenzen bis zu einer 
bestimmten höchsten Frequenz passieren. Diese Funktion ist an 
jeder Stereoanlage in Form des Bass-Reglers zu finden. Mit 
diesem Regler läßt sich diese höchste, durchzulassende 


Kapiteln 


Nehmen 
dieses 


Frequenz filter. 
andere werden 
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Frequenz, die sogenannte Grenzfrequenz einstellen. 

Ein Hochpass zeigt genau das umgekehrte Verhalten, ab einer 
bestimmten niederigsten Frequenz läßt er alle höheren 
Frequenzen durch. Das ist an der Stereoanlage der Trebble- 
oder Höhenregler. 

Bleiben noch Bandpass und Sperrpass. Auch diese haben genau 
entgegengesetzte Funktionen. 

Ein Bandpass ist eine Mischung aus Tief- und Hochpass. Ab 
einer bestimmten Frequenz werden höhere Frequenzen 
durchgelassen, dies aber nur bis zu einer höchsten Frequenz. 
Darüberliegende Frequenzen werden wieder gesperrt. 

Das Sperrfilter sperrt in einem bestimmten Frequenzbereich 
alle Frequenzen. Diese Funktion ist an manchen guten 
Stereoanlagen als Brummfilter vorhanden. Damit wird in diesem 
Fall nur eine bestimmte Frequenz, die 58 Hertz der 
Netzfrequenz herausgefiltert. 

Alle diese Filter lassen sich im SID programmieren. 


Der Pin S, der Reseteingang von U18, wird benötigt, um das IC 
in einen definiertnen Zustand zu bringen. kie bereits 
beschrieben, liegt an diesem Anschluss nach dem Einschalten 
für ca. 0.5 Sekunden ein Low-Pegel. Damit werden alle 
Register im 6581 gelöscht. 

Ohne diesen Reset würden die Register nach dem Einschalten 
zufällige Werte haben, die Folge wäre ein zufälliges Signal 
am Audioausgang, der angeschlossene Fernseher oder Verstärker 
würde nur '’Krach‘ machen. 


Aus der Frequenz des Signals D2 werden alle Tonfrequenzen des 
SID erzeugt. Gleichzeitig stellt 82 natürlich wie bei allen 
anderen Peripherie-Bausteinen den Bezugstakt für die Schreib- 
und Lesezugriffe des Prozessors dar. 


Ob die im SID enthaltenen Register beschrieben oder gelesen 
werden, hängt wieder von der Leitung R/-W ab. Bei einen High 
werden die Register gelesen, bei einem Low wird in die 
Register geschrieben. Voraussetzung ist natürlich, das der 
SID auch korrekt adressiert ist. 


Der Adressbereich des 6581 liegt von $D480 bis $D7’FF. Dieser 
Adressbereich wird wie beim VIC durch den AM und die Dekoder 
im IC U1S dekodiert. Sobald der Prozessor eine Adresse in 
diesem Bereich auf den Bus legt und das Signal -CHAREN High 
ist, wird der Ausgang Pin 5 des 7419139 Low, damit auch der 
-CS-Eingang des SID. 

Um nun auch die einzelnen Register im SID zu 
werden die 5 Adressleitungen AB bis A4 benötigt. 
Sind diese Adressbits alle Low und der SID mit -c5 
selektiert, kann das Register DB beschrieben oder gelesen 
werden. Ist nur das Adressbit AB High, ist Register I 


selektiert usw. 
Auf diese Weise lassen sich alle 29 Register ansprechen. 


adressieren, 


Die Datenleitungen DB bis D7 an den Pins 15 bis 22 sind mit 
dem Prozessordatenbus verbunden. So lange -CS High ist, 
befinden sich die Datenleitungen des SID im Tri-State- 
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Zustand. Wenn der -CS Low wird, entscheidet R/-WR, ob die 
Datenleitungen als Eingang (beim Schreiben der Register) oder 
als Ausgang (entsprechend beim Lesen) fungieren. 


Die Anschlüsse POTX und POTY stellen die Eingänge der 
AD-Wandler dar. 

Bis jetzt ist die Bezeichnung AD noch nicht erläutert worden. 
Das wollen wir schnell nachholen. 

AD-Wandler ist die Abkürzung für Analog-Digital-Wandler. Ein 
digitaler Wert kennt bekanntlich nur zwei Zustände, entweder 
High oder Low, im CBM &4 und vielen anderen Digital- und 
Computerschaltungen durch eine Spannung von +5V als High und 
® Volt als Low signalisiert. 

Ein analoges Signal ist da nicht so festgelegt, es kann jeden 
beliebigen Wert dazwischen, darüber und darunter annehmen. 
Nun ist es aber oft wünschenswert, einen solchen analogen 
Wert in einen Computer singeben zu können, um ihn zu 
verarbeiten. Diese Möglichkeit der Eingabe analoger Werte ist 
im CBM 64 eingebaut. 

Hauptsächlich genutzt werden die AD-Wandler in Verbindung mit 
den Paddles, das sind Drehregler, ähnlich den Reglern an 
Radiogeräten. 

Ein solcher Regler enthält einen veränderbaren Widerstand, 
Potentiometer oder kurz Poti genannt. Der Widerstandsvmert des 
Potis ändert sich mit dem Drehen. Der minimale Widerstand der 
in den Paddles eingebauten Potis beträgt ca. 188 Ohm, der 


Maximalwert ca. 588 KOhm. Dazwischen kann der Widerstand 
theoretisch jeden beliebigen Wert annehmen. 
Der AD-Wandler erzeugt aus diesem Widerstandswert ein 


digitales Signal, in unserem Fall wird ein 6-Bit-Signal 
erzeugt. Dieses Byte kann aus einem der SID-Register gelesen 
werden. 

Die eigentliche AD-Wandlung geschieht mit dem eingestellten 
Widerstandswert und den Kondensatoren C4B und C9J. 

Diese Kondensatoren werden für 8.25 Millisekunden über die 
Potis aufgeladen. Wenn die Spannung an den Kondensatoren 
größer wird, ale die im SID erzeugte Vergleichsspannung, wird 
«ein Zähler im SID angehalten, der Zählerstand ist das Man für 
den eingestellten Widerstand. Je größer der Widerstand des 
Potis ist, um so langsamer wird der Kondensator aufgeladen, 
und die Spannung am Kondensator erreicht die Höhe 
Referenzspannung später. Damit kann der Zähler länger laufen, 
der Zählerwert wird größer. 

Ist der Widerstandswert zu hoch (ca. 2808 KOhm), dann erreicht 
die Spannung am Eingang des AD-Wandlers in der Meßzeit nicht 
die Referenzspannung. Der Zähler Mäuft dann bis zu seinem 
Endwert, im AD-Register steht der Wert 255. 

Wenn der Widerstand aber zu klein wird (ca. 202 Ohm), ist der 
Kondensator so schnell aufgeladen, daß der Zähler sofort 
gestoppt wird. Damit steht im Register ein Wert von ®. 

Nach Ablauf der Meßzeit von 8.25 Millisekunden werden die 
Kondensatoren schlagartig über den entsprechenden AD-Eingang 
entladen. Jetzt wird der Zähler auf DB gesetzt und nach 
weiteren B.25 Millisekunden startet dann sin neuer Menzyklus. 
Somit benötiat ein vollständiger Zyklus 8.5 Millisekunden, in 
einer Sekunde werden 2B0D mal die aktusllen Widerstandswerte 
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gemessen und stehen zur Verfügung. 

Um eine Beschädigung der AD-Eingänge zu vermeiden, sollte der 
Widerstand nicht kleiner als 180 Ohm werden. Sonst werden die 
bei der Entladung der Kondensatoren auftretenden Ströme zu 
groß, und die Entladestufe am Eingang wird zerstört. 

Die zwei Eingänge POTX oder POTY liegen aber nicht direkt an 
einer der verschiedenen Buchsen des 64. Die beiden Eingänge 
liegen an den Pins 2, 3, 9 und 18 des IC U28. Dies IC, ein 
CMOS-Baustein mit der Bezeichnung 4866. enthält vier 
sogennante Analogschalter. Dies IC wird benötigt, da an den 
64 zwei Paddlepaare, insgesammt also vier Potis, 
angeschlossen werden können. 

So ein Analogschalter arbeitet vergleichbar einen Relais. 
Wenn am Steuereingang eine Spannung anliegt, wird der 
Analogeingang auf den Ausgang durchgeschaltet, der Schalter 
ist geschlossen. Liegt der Steusreingang auf Masse, dann ist 
der Ausgang vom Eingang gesperrt, der Schalter ist geöffnet. 
Die Analogeingänge sind mit den Controllports CNB und CN® 
verbunden. An diesen Controllports sind die Kontakte 5 und 9? 
für den Anschluß der Paddles vorgesehen. 

Die Steuereingänge sind die Pins 5, 6, 12 und 13. Der Pin 13 
kontolliert den Schalter i zwischen den Anschlüssen I und 2, 
Pin 5 den Schalter 2 zwischen 4 und 3, Pin 6 den Schalter 3 
zwischen 8 und 9 und Pin 12 Schalter 4 zwischen 11 und 10. 
Jeweils zwei dieser Eingänge sind zusammengeschaltet, Pin 1J 
und 5 und Pin & und 12. 

Diese jeweils verbundenen Eingänge liegen an den beiden Pins 
8 und 9 der CIA Ul.Üüber diese Leitungen kann man auswählen, 
welche Potis an den Eingängen des AD-Wandlers liegen. Sind 
die Pins B und 9 der CIA Uli Low, dann liegt kein Poti an den 
Wandlern. Ist Pin 8 High, dann sind die Analogschalter 3 und 
4 geschlossen, die am Controllport 1 angeschlossenen Paddles 
werden an die Anschlüsse PDTX und POTY gelegt. Ist dagegen 
Pin 9 der CIA High, dann sind Analogschalter 1 und 2 
geschlossen, die Paddles an CNB liegen an den Eingängen der 
AD-Wandler. 


Bleiben noch die Anschlüsse EXT IN und AUDIO OUT am 6551. 
AUDIO OUT ist der NF-Aumgang des Syntesizers. Hier stehen die 
im Syntesizer erzeugten Töne und Geräusche zur Verfügung. Bei 
maximaler Lautstärke hat das Ausgangssignal eine Größe von 
ZVss. 

Der Transistor QB ist als Emitterfolger an den Ausgang 
geschaltet. Dadurch, dan das Signal am Emitter des 
Transistors über dem Widerstand RI38B abgenommen wird, hat der 
Transistor keine Spannungsverstärkung. Das Signal am Ausgang 
Pin 3 des 8-poligen Video-Audio-Buchse CNS hat somit auch 
eine Höhe von 2Vss=. 

An diesen Ausgang kann man direkt «einen kleinen 
8-Ohm-Lautsprecher anschliessen. Allerdings ist die Lautstärke 
sehr gering. Um eine vernünftige Wiedergabe zu erreichen, 
geben Sie das Signal am besten auf eine Stereoanlage oder sin 
gutes Kofferradio. Oder Sie benutzen den im Fernseher 
eingebauten Lautsprecher und das mit dem Bild übertragene 
Tonsignal. 


313 


EXT IN gibt die Möglichkeit auch enterne Signale in den 
Syntesizer einzuspeisen und zu beeinflussen. Externe Signale 
können beispielsweise Mikrofonsignale sein, die mit einen 
kleinen Verstärker verstärkt worden sind. Auch eine Gitarre 
oder eine Orgel kann nach entsprechender Verstärkung das 
Eingangssignal liefern, oder aber auch ein zweiter SID, also 
ein zweiter CBM 64. Damit hätte man dann noch wesentlich mehr 
Möglichkeiten der Klanggestaltung. 

Die einzige an das Eingangssignal gestellte Forderung lautet, 
daß das Signal nicht größer als JVss sein darf. 

Dieser Eingang ist über den Kondensator Ci2 mit dem Kontakt 5 
der 8-poligen Audio-Video-Buchse CNS5 verbunden. 
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Die ClAu 6526 


Diese beiden Bausteine mit den Bezeichnungen Uli und U2 
erfüllen eine Vielzahl von verschiedenen Aufgaben im CBM 64. 
Die Tastatur- und Joystickabfrage, der serielle Datenbus zu 


Floppy und Drucker, eine optionale R9-232 
Serialschnittstelle, die im vorigen Kapitel beschriebene Ein- 
und Umschaltung der Analogeingänge, Teile der 


Datasettensteuerung und die Erzeugung der schon erwähnten 
Hilfsadressbits A1l4 und A1lS für den VIC, all diese Aufgaben 
werden von den zwei CIAs erledigt. 


Ein solcher CIA (Complex Interface Adapter) 6526 ait seinen 
40 Anschlüssen enthält 16 einzeln programmierbare 
Ein-Ausgabeleitungen, zwei Intervalltimer, eine Echtzeitzuhr 
mit programmierbarer Alarmzeit und ein B-Bit-Schieberegister 
für serielle Ein-Ausgabe. 


Doch betrachten wir uns zunächst wieder die einzelnen 
Anschlüsse des ICsı 


Pin Bezeichnung 
ı GND Betriebsspannung Masse 
2 PAB Ein-Ausgabeport A Bit 8 
bis 
7 PA7 Ein-Ausgabeport A Bit 7 
18 PBO Ein-Ausgabeport B Bit B 
bis 
17 PB? Ein-Ausgabeport B Bit 7 
18 -PC Ausgang, Part Control 
19 TOD Eingang, Time Of Day 
20 Vec Betriebsspannung *+5V 
21 -IRQO Ausgang, Interrupt Request 
22 R/-W Eingang, Read/-kWrite 
23 -C8 Eingang, -Chip Select 
24 -FLAG Eingang, „ie Port Control 
25 02 Eingang, Systemtakt 
26 D7 Prozessordatenbus 
bie 
33 Do Prozessordatenbus 
34 -RES Eingang, Resetsignal 
35 RSS Eingang, Register Select 
bis 
38 RSO Eingang, Register Select 
39 SP Serial Port, bidirektional 
408 CNT Count, bidirektional 


Die Leitungen mit den Bezeichnungen PAB bis PA7 und PBO bis 
PB7 sind die 1& bidirektionalen Ein-Ausgabeleitungen. Je nach 
Programmierung stellen diese Leitungen Ein- oder Ausgänge 
dar. Damit besteht die Möglichkeit, Daten als B- oder auch 
als 16-Bitwort zu lesen oder auszugeben. 

Die CIA I legt diese 1& IO-Leitungen auf den Stecker, mit dem 
die Tastatur angeschlossen ist. Die Tastatur ist als eine 
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Matrix von jeweils 8 mal 8 Leitungen aufgebaut. Wenn man die 
Tasten des 64 zählt, dann kommt man auf 66 Tasten. in einer 8 
mal 8 Matrix lassen sich aber nur 64 Tasten abfragen. Die 
Lösung dieses Problems sind die Tasten RESTORE und SHIFT 
LOCK, 

Die RESTORE-Taste ist nıcht in der Matrix enthalten, wie 
schon beschrieben schaltet diese Taste den Eingang von U28 
nach Masse und erzeugt einen NMI. 

Die Taste SHIFT LOCK ist einfach zu einer SHIFT-Taste 
paralell geschaltet und benötigt somit keinen eigenen Platz 
in der Matrix. 

Die exakte Position jeder Taste in der Matrix entnehmen Sie 
bitte dem Bild auf der nächsten Seite. 

Vor der Erklärung der Tastaturabfrage eine kurze Erklärung. 
Wenn bei den CIAs ein Portbit als Eingang geschaltet ist, 
dieser Eingang aber nicht belegt ist, dann erkennt die CIA an 
diesem Anschluss ein High-Signal. 

Aber nun die eigentliche Abfrage. Vergleichen Sie dazu bitte 
auch das Bild auf der nächsten Seite. 

Die Leitungen PAB bis PA7 sind als Ausgang geschaltet, die 
Leitungen PBO bis PB7 als Eingänge. 

Wenn das Betriebssystem die Tastatur abfragen will, werden 


die Anschlüsse von Port A für einen kurzen Moment Low. Wenn 
auf der Tastatur zum Beispiel der Buchstabe ' H ° gedrückt 
ist, wird in diesem Moment auch Bit 5 des Ports B Low. Damit 
bemerkt der Rechner, das eine der Tasten FS, 5, F, H, K, ı, = 


oder die Commodore-Taste gedrückt ist. 

Welche dieser B Tasten gedrückt ist, kann zu diesem Zeitpunkt 
noch nicht erkannt werden. 

Ist aber ein Tastendruck erkannt, werden nacheinander die 
Ausgänge von Port A kurz Low, jeweils einer zur Zeit. Nach 
jedem Wechsel der Ausgänge wird an den Eingängen von Port B 
geprüft, ob ein Eingang Low ist. 

Das ist in unserem Beispiel dann der Fall, wenn das Bit 3 des 
Ports A Low wird. Damit liegt die Position der gedrückten 


Taste innerhalb der Matrix fest. Die genaues Anordnung der 
Tasten und der Anschluß an die CIA ist aus der Zeichnung auf 
der ı'r- 320 zu sehen. 


Die Joystickabfrage wird auch von CIA 1 erledigt. 

Ein Joystick enthält nichts anderes als 5 Schalter. Vier 
diese Schalter sind für die vier Richtungen, der #ünfte 
Schalter ist der Feuerknopf. Diese Schalter liegen aber nicht 
in einer Matrix sondern legen jeweils ein Portbit an Masse. 
Der Jovstick 1 liegt auf den Portbits 8 bie 4 von Port B, 
Joystick 2 auf den Portbits B bis 4 von Port A. 


Zusätzlich übernimmt Port A der CIA 1 mit den Bits 6 und 7 


die Umschaltung der Paddles. Diese Umschaltung wurde bereits 
im Kapitel über die AbD-Wandler erläutert. 
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Der Pin 19 der CIAs trägt die Bezeichnung TOD. TOD (Time Of 
Day) ist ein Eingang, der die in den CIAs integrierte 
Echtzeituhr mit den Taktsignalen versorgt. An diese Eingänge 
wird das mit dem Gatter U27 erzeugte 58 Hertz-Rechtecksignal 
geführt. In den CIAs wird diese Frequenz durch 5 geteilt, 
damit steht eine Frequenz von iB Hertz zur Verfügung. 18 
Hertz bedeuten 18 Impulse pro Sekunde, jede zehntel Sekunde 
ein Impuls, die kleinste mit den CIAs mefbare Zeiteinheit. 


Der Pin 21 trägt die Bezeichnung -IRQO. Wie auch beim VIC wird 
dieser Anschluss zur Erzeugung von Interrupts genutzt, Bei 
der CIA 1 ist er ist mit dem -IRQ-Eingang des Prozessors 
verbunden. 

Der Anschluss wird dann Low, wenn bestimmte programmierbare 
Ereignisse in der CIA auftreten. 


R/-W, der Pin 22 steuert wieder die Art des Datentransfers. 
Wenn die Register der CIA 1 und 2 gelesen sollen, ist dieser 
Anschluss High, beim Schreiben in diese Register ist er Low. 


Wie alle Feripherie-Bausteine im CBM 64 sind auch die CIAs 
Memor v-Mapped. Das bedeutet, das Sie diese Bausteine genau 
wie Spoeicherplätze im RAM ansprechen können, 

Bei jeder Aktivität des Prozessors in dem Adrassbereich sDC82 
bis SDFFF wird, wenn das Signal -CHAREN High ist, der Ausgang 
Pin 7 des Dekoders U1i5 Low. Damit ist gleichzeitig der 
Enable-Eingang des zweiten im U1S enthaltenen Dakoders auf 
Low, der Dekoder 2 ist freigegeben. An den Eingängen Pin 15 
und 14 dieses zweiten Dekoders liegen die Adressbits AS und 
AI. Mit diesen Adressbits wird der durch den Dekoder I 
dekodierte Adressbereich in vier kleinere Adressbereiche 
unterteilt. Jeder der auf diese Weise gewonnenen 
Adressbereiche ist 2564 Bytes groß. 

Die ersten 256 Bytes belegen den Adressbereich $DCOB bis 
SDCFF (Pin 12 von UlS) und selektieren die erste CIA, der 
zweite Bereich liegt von #DD@8 bis sDDFF (Pin 11) und 
selektiert CIA 2. 

Die beiden freien dekodierten Adressbereiche von SDEBD bis 
sDEFF und von $DF@0 bis $DFFF warden als I0I und 102 auf die 
Anschlüße 7 und 1® der Cartridge Expansion geführt. Der I01 
wird zum Einschalten der CP/M-Cartridge benötigt, 102 wird 
von keiner uns bekannten CBM-Erweiterung benutzt. Damit ist 
dieser Adressbereich vorzüglich für eigene Projekte geeignet. 


Wenn auf diese Weise eine der beiden CIAs selektiert ist, 
bestimmen die Leitungen RSB bis RSS, welches interns Register 
in der CIA angesprochen werden soll. Dazu sind die Eingänge 
mit den vier niederwertigen Adressbits des Prozessorbusses 
verbunden. 


Die Datenleitungen DB bis D7 (Anschlüsse 33 bis 26 an den 
CIAs) sind mit dem Prozessordatenbus verbunden, über diese 
Leitungen werden Daten ausgelesen respektive in die Register 
hineingeschrieben. 


Der Anschluss mit der Bezeichnung -FLAB der CIA 1 erfüllt 
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eine Doppelfunktion. 

Zum einen ist er mit den Anschlüssen D und 4 des 
Cassettenports CNS verbunden. über diese Leitung werden die 
von der Datasette gelieferten Hiedergabesignale eingelesen. 
Zum zweiten ist der -FLAG-Eingang mit Pin 1 des Serialbus 
verbunden. Dieser Pin i von CN4 trägt die Bezeichnung -SROIN. 
über diesen Service ReQuest Eingang können Peripherie-Geräte 
dem &4 melden, wenn sie Daten für den Rechner zur Verfügung 
haben. Diese Funktion wird aber von keinen Geräten der Firma 
Commodore genutzt. 

Dieser -FLAG-Eingang ist flankengetriggert. Jeder Wechsel von 
High nach Low wird im CIA signalisiert und kann einen 
Interrupt an Pin 21 erzeugen. 


Der Eingang mit der Bezeichnung -PC kann als Hand Shake 
Signal für den Fort B oder für Port A und Port B zusammen 
genutzt werden. 

Wenn sie in einer Anwendung den Port B als Eingabeport 
benutzen, dann können Sie mit eınem negativen Impuls an -FC 
die Daten in den Computer übergeben. Damit können 8-Bit-Daten 
übernommen werden. 

Je mach Programmierung werden mıt abfallender Flanke des 
Pegels an -PC nur die Daten an Port B oder an beiden Ports 
eingelesen. 

Bei der CIA 1 ist dieser Eingang nicht benutzt. 


Pin 39 mit der Bezeichnung SP (Serial Port) kann je nach 
Programmierung wahlweise der Eingang oder der Ausgang des 
Schieberegisters im CIA sein. 

Mit einem Schieberegister tant sich eine serielle 
Schnittstelle ohne großen Aufwand realisieren. 

Dieser Anschluss der CIA 1 liegt auf dem Anschluß 5 des 
User-Ports CN2, und wird von einer aufgesteckten 
RS-232-Schnittstelle benutzt. Ohne RS-232 können Sie diesen 
Anschluss für eigene Anwendungen verwenden. 


Der Anschluß CNT der CIA 1 liegt auch auf dem User-Port. Dort 
belegt er den Pin 4. über diesen Anschluß kann der 
Schieberegistertakt ausgegeben oder auch eingegeben werden. 
Zusätzlich kann dieser Anschluß als Takteingang für die 
eingebauten Zähler in der CIA programmiert werden. Auch 
dieser Anschluss wird nur bei aufgesteckter RS-232 benutzt. 


Der Port A der CIA 2 ist aufgeteilt, d.h er erfüllt mehrere 
Funktionen. 

Bit 8 des Ports A ist das Videohilfsadressbit VA 14, Bit 1 
des Ports ist VA 15. PA2 ist das einzige Bit des Ports A, das 
innerhalb des 54 keine Funktion erfüllt. Es liegt nur’ am 
User-Port auf dem Anschluss M. Die verbleibenden Portbits 5 
bis 7 werden für den seriellen lEC-Bus verwendet. Dabei ist 
das Bit 3 der Ausgang zur Erzeugung des -ATN-Signals. Dieser 
Anschluß wird an den Pin 1 des IC U86 geführt. 

Das IC U8 enthält 4 sogennante Buffer, Signalverstärker die 
das Signal nicht invertieren. Außerdem sind die Buffer mit 
Open Collector-Ausgängen versehen, sie benötigen am Ausgang 
einen Arbeitswiderstand nach +3V. 
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Der Ausgang des Buffers für das -ATN-Signal Pin 2 ist 
verbunden mit Pin S des seriellen Busses, gleichzeitig aber 
auch mit dem Userport Pin 9. Damit kann das Portbit auch für 
Ihre Schaltungen am Userport genutzt werden, allerdings nur 
als Ausgang. 

Die Portbits 4 und 5 werden auch über das IC UB gapuffert. 
Portbit 4 ist das Signal CLK OUT, Bit 5 das Signal DATA OUT. 
Die Ausgänge der beiden Buffer sind mit den Pins 4 und 5 des 
Serialbusses verbunden als Signale CLK an Pin 4 und DATA an 
Pin 5. Im Ruhezustand sind diese Ausgänge High. 
Gleichzeitig liegen aber “uch die Portbits & und 7 an an den 
Ausgängen der Buffer. Der Grund dafür ist die Tatsache, d 
sowohl CLK als auch DATA bidirektionale Signale sind, sie 
werden nicht nur im #64 erzeugt, sondern auch in einer 
angeschlossenen Floppy oder einem Drucker. Die Portbits 6 und 
7 sind also entspechend als Eingänge programmiert und ein 
externes Gerät kann diese beiden Signale nach Masse ziehen. 


Alle 8 Leitungen des Ports B liegen nur auf dem Usaer-Port, 
und stehen damit Ihnen, dem User oder Benutzer zur Verfügung. 
Da diese Leitungen sowohl als Eingänge als auch als Ausgänge 
zu benutzen sind, können sowohl Daten aus dem Computer 
ausgegeben werden als auch Daten in den 64 zingegeben werden. 
Detailierte Angaben Über die Programmierung und Verwendung 
des User-Forts finden Sie im Kapitel 1.4 dieses Buches. 


Der Kontakt 8 des User-Ports ist mit dem Anschluß -PC (Pin 
18) der CIA 2 verbunden. Wie schon bei der CIA 1 erläutert, 
signalisiert eine negative Flanke an diesem Eingang die 
Gültigkeit der Daten an Port B für den Fall, daß der Port B 
als Eingang programmiert ist. Damit können Sie also dem &4 
anzeigen, das die am User-Port anliegenden Daten in den 
Rechner übernommen werden können. 


-FLAG der CIA 2 (Pin 24) liegt am User-Port-Kontakt B. Für 
den Fall der Programmierung des Ports B als Ausgangsport kann 
dieser Anschluß so programmiert werden, daß er die Gültigkeit 
der Daten an den Portleitungen anzeigt. Er hat also genau die 
umgekehrte Funktion des -PC-Eingangs, da er für die 
Datenrichtung aus dem Port heraus an die angeschlossene 
Peripherie zuständig ist. 


Der -IRQ-Ausgang der CIA 2 wird ebenso wie bei der ClAı als 
Interrupt erzeugender Anschluß verwendet, Ein in der CIA 2 
erzeugter Interrupt löst aber am Prozessor einen -NMI, durch 
Software nicht ausblendbaren Interrupt aus. 


Die Adressbereichsdekodierung geschieht wie auch bei der LCIA 
1 durch die Dekoder im IC U1S. Die CIA 2 belegt aber den 
Adressbereich von $DD88 biw $DDFF. 

Das an Pin 23 benötigte -C5-Signal wird am Pin 11 des 
Dekoders erzeugt. 


An beiden CIAs liegt noch an Pin 34 daus Bystem-Resst-Signal. 
Damit werden auch in diesen Peripherie-Bausteinen alle 
Register nach dem Einschalten in einen definierten 
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Anfanaszustand versetzt. 


Die Funktion der übrigen Signale an U2 braucht nicht 
erläutert werden. Diese Anschlüsse haben die selbe Funktion 
nie die entsprechenden Leitungen an der CIA 1. 


Der Modulator. 


Anders als beim VC-28 ist der Modulator des &4 bereits im 
Gerät eingebaut. 

Leider ist kein Schaltplan des Modulators verfügbar. Trotzdem 
eine kurze Beschreibung der Vorgänge in diesem Teil. 

Der Modulator besteht in der Hauptsache aus einem Oszillator, 
der auf einer Freauenz im UHF-Fernsehbereich schwingt. Diesem 
Oszillatorsignal werden die Signale SYNC+LUM und COLOR des 
VIC 6569 und das Audio-Signal des SID 6581 aufmoduliert. Das 
entstehende Signal ist an der Chinch-Buchse verfügbar und 
kann mit einem Koax-Kabel an den Antenneneinaana eines 
Fernsehers geführt werden. 

Die durch die öffnungen im Modulator sichtbaren 
Abgleichelemente sollten Sie NIE verstellen. Der Abgleich des 
Modulators wurde im Herstellerwerk vorgenommen und ist mit 
Sicherheit optimal. 


Selena 
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Liste der verwendeten Halbleiter. 


Für die Spezialisten unter Ihnen hier noch eine Aufstellung 
der im CBM 64 verwendeten ICs mit Herstellerangaben. Alle ICs 
können Sie im Data Becker Chip Shop erhalten. Damit haben Sie 
die Möglichkeit, Ihr Gerät selbst zu reparieren. 
Allerdings sei an dieser Stelle DRINGEND davor gewarnt, 
detailierte Kenntnisse der Computerhardnware oder 


ohne 
einen 


entsprechenden Satz n Meßgeräten eine Reparatur zu 
versuchen. In den meisten Fällen ist die Reparatur nach einem 
solchen misslungenen Versuch teurer als die Reparatur des 
ursprünglichen Fehlers. 
Bez. Tvpenbez. Hersteller 
[Op 6526 CIA Commodore MOS 
u2 6526 CIA Commodore MOS 
US 2544A BASIC Commodore MOS 
u4 23564A KERNAL Commodore MO8 
y5 23532A CHARACTER Commodore MOS 
Ub 2114L-3 COLOR RAM diverse Hersteller 
z.B. OKI MSM 2114L-3 
FAIRCHAILD 2114L-3 
HITACHI HM2114L-3 
MOS MPS2114L-38 
MOTOROLA MCM2114L-38 
NEC uPD2114L-1 
u7 6518 MPU Commodore MODS 
u8 7406 diverse Hersteller 
uU? A164 RAM diverse Hersteller 
u1o 
Ull z.B. NEC uPD4164-2 
ui2 MOSTEK MK4164-1B8 
u21 
u22 
u2S3 
u24 
VU1S SN74L5257 diverse Hersteller 
U14 9N74L5278 diverse Hersteller 
US SN74L6139 diverse Hersteller 
Ul&6 MC4064 diverse Hersteller 
U17 6825180 Signetics, programmiert durch 
Commodore 
uU18 #581 SID Commodore MOS 
U19 6369 VIC Commodore MOS 
LU298 556 diverse Hersteller 
U25  SN?74L5257 diverse Hersteller 
U26 6N74LS373 diverse Hersteller 
U27 SN74LSBB8 diverse Hersteller 
uU28 MC4B6b diverse Hersteller 
U29 SN741L574 diverse Hersteller 
USB SN7ALS5193 diver Hersteller 
US1 SN74L5629 diverse Hersteller 
uUS2 MC4944 Motorola 
VRi 7812 12V Regler diverse Hersteller 
VR2 7885 SV Regler diverse Hersteller 
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BRANDNEU - DER SX-64 


Nun hat auch COMMODORE seinen Henkelmann. 

Der in letzter Zeit verstärkt zu beobachtende Trend nach 
einer kompakteren Bauweise hat auch vor COMMODORE nicht 
haltgemacht. 

In einem noch als handlich zu bezeichnenden Gehäuse mit den 
Abmessungen BSOxH14x T42cm ist so ziemlich alles 
untergebracht, was zu einem Rechner gehört, das Ganze mit 
einem praktischen Traneqnriff versehen. 


Im einzelnen sind im Gehäuse eingebaut: 


die modifizierte Rechnerplatine des C6ö4 in zwei Teilen 
die modifizierte Platine der Floppy VC-1541 

ein Lautsprecher mit Bcm Durchmesser 

ein Monitor (wahlweise monochrom oder farbig) 

wahlweise ein oder zwei Diskettenlaufwerke 

eine superflache Tastatur (mittlere Höhe nur Scm), die bei 
Nichtgebrauch die Frontseite des Gerätes verschließt 


wur 


Ar Bedienungselementen außer der Tastatur sind vorhandenı 


- Netzschalter auf der Rückseite 
- auf der Vorderssite hinter seinem Türchen Regler für 


Lautstärke, Kontrast, Helligkeit, Farbsaättigung und Rot- 
Grünbalance 


An extern zur Verfügung stehenden Anschlüssen sind zu 
nennen 


- zwei Anschlüsse für Joysticks 

- der serielle 1EC-Bus 

- Monitoranschluß (nicht moduliert) 

- Userport 

- durch Federklappen geschützter Expansionport auf der 
Oberseite des Gerätes 

- kein Anschluß für Kassettengeräte 


Im Inneren des Rechners geht es naturgemäß ziemlich eng zu. 
Die Platinen sind senkrecht gestellt und durch steckbare 
Anschlüsse miteinander verbunden. 

Durch ausreichend dimensionierte Lüftungsschlitze ist eine 
gute Wärmeabfuhr gewährleistet, sodaß thermische Probleme 
trotz der hohen Packungsdichte nicht zu erwarten sind. 


Der Bildschirm, obwohl mit 5" (ca. 1Scm) nicht gerade der 
größte, liefert ein erstaunlich scharfes Bild mit klaren 
Farben, was wohl auch darauf zurückzuführen ist, daß das 
Videosignal nicht erst über einen Modulator geleitet wird, 
was ja bei Betrieb mit seinem handelsüblichen Fernsehgerät 
nötig wäre. 

Daraus folgt, daß Sie, falls ein größeres Bild gewünscht 
wird, nicht ohne weiteres die Möglichkeit haben, einen 
Fernseher anzuschließen. 


Besonderes Lob verdient die Tastatur, die wegen ihrer 
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geringen Bauhöhe und mit den leichtgängigen Tasten ein 
ermüdungsfreies Arbeiten ermöglicht. 


Zusammenfassend läßt sich sagen, daß es sich hier um ein 
Gerät handelt, welches alle wesentlichen Merkmale seines 
Personal-Computers in einer glücklichen Größe vereint, was 
sicherlich die oftmals leidgeprüften Ehegefährten von 
Computerfreaks geneigter macht, da weder der Küchentisch mit 
allerlei Gerätschaften blockiert werden muß, noch der (im 
allgemeınen nur einmal vorhandene) Fernseher dem häuslichen 
Gebrauch entzogen wird. 
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DATA BECKER BÜCHER 


Angerhausen : Brückmann 
Englisch 


VC-20 


intern 


Betriebssystem und Technik 
des VC-20 


EIN DATA BECKER BUCH 


Angerhausen : Englisch 
Gerits 


VC-20 
Tips & Tricks 


Eine Fundgrube für den 
VC-20 Anwender 


EIN DATA BECKER BUCH 


Die überarbeitete und erweiterte 

2. Auflage von VC-20 INTEAN 
beschäftigt sich detailliert mit 
Technik und Betriebssystem des 
VC-20 und enthält ein ausführlich 
dokumentiertes ROM-Listing, die 
Belegung der ZEROPAGE und 
anderer wichtiger Bereiche, über- 
sichtliche Zusammenfassungen der 
Routinen des BASIC-Interpreters 
und des VC-20 Betriebssystems, 
eine Einführung in die Programmie- 
rung in Maschinensprache, eine 
detaillierte Beschreibung der 
Technik des VC-20 und als Clou 
einen Original COMMODORE 
Schaltplan zum Ausklappen! Damit 
Ist VC-20 INTERN für Jeden Interes- 
sant, der sich näher mit Technik 
und Maschinenprogrammierung 
des VC-20 auselnandersetzen 
möchte. 

VC-20 INTERN, 2. Auflage 1983. 
ca. 170 Seiten, DM 49,- 


Die überarbeitete und erweiterte 

2. Auflage von VC-20 TIPS & TRICKS 
enthält eine detaillierte Beschrei- 
bung der Programmierung von 
Sound und Graphik des VC-20, 
mehr über Speicherbelegung, 
Speichererweiterung und die 
optimale Nutzung der einzelnen 
Speichermodule, BASIC-Erweite- 
rungen zum Eintippen, umfang- 
reiche Sammlung von Poke's und 
anderen nützlichen Routinen, zahl- 
reiche interessante Beispiel- und 
Anwendungsprogramme, komplett 
dokumentiert und fertig zum Ein- 
tippen (z.B. Spiele, Funktionen- 
plotter, Graphik Editor, Sound 
Editor) und vieles andere mehr. 
VC-20 TIPS & TRICKS Ist eine echte 
Fundgrube für jeden VC-20 
Anwender. 

VC-20 TIPS & TRICKS, 2. Auflage 
1983, ca. 230 Seiten, DM 49,- 


DATA BECKER BÜCHER 


Angerhausen : Brückmann 
Englisch : Gerits 


64 


intern 


Das große Buch zum 
COMMODORE 64 
mit 
dokumentiertern Schaltplan 


EIN DATA BECKER BUCH 


Angerhausen Englisch 
Gerits 


64 


Tips & Tricks 


Eine Fundgrube für den 
COMMODORE 64 Anwender 


EIN DATA BECKER BUCH 


Jetzt in überarbeiteter und erweiter- 
ter 3. Auflage: 64 INTERN erklärt 
detailliert Architektur und tech- 
nische Möglichkeiten des C-64, zer- 
legt mit einem ausführlich doku- 
mentierten ROM-Listing Betriebs- 
system und BASIC-Interpreter, 
bringt mehr über Funktion und 
Programmierung des neuen 
Synthesizer Sound Chip und der 
hochauflösenden Graphik, zeigt die 
Unterschiede zwischen VC-20, 
C-64 und CBM 8000 und gibt Hin- 
weise zur Umsetzung von Pro- 
grammen. Zahlreiche lauffertige 
Beispielprogramme, Schaltbilder 
und als Clou: zwei ausführlich 
dokumentierte Original 
COMMODORE DIN A3 Schaltpläne 
zum Ausklappen. Dieses Buch 
sollte jeder 64-Anwender und Inte- 
ressent haben. 

64 INTERN, 3. Auflage 1983, 

ca. 320 Seıten, DM 69,- 


Die überarbeitete und erweiterte 

2. Auflage von 64 TIPS & TRICKS 
enthält eine umfangreiche Samm- 
lung von POKE's und anderen nütz- 
lichen Routinen, Multitasking mit 
dem C-64, hochauflösende Graphik 
und Farbe für Fortgeschrittene, 
mehr uber CP/M auf dem C-64, mehr 
über Anschluß- und Erweiterungs- 
möglichkeiten durch USER PORT 
und EXPANSION PORT, sowie 
zahlreiche ausführlich dokumen- 
tierte Programme von der SORT- 
Routine über zahlreiche BASIC- 
Erweiterungen bis hin zur 
3D-Graphik (alle Maschinenpro- 
gramme jetzt mit BASIC-Ladepro- 
gramm!). 64 TIPS UND TRICKS Ist 
eine echte Fundgrube für Jeden 
COMMODORE 64 Anwender. 

64 TIPS & TRICKS, 2. Auflage 1983, 
ca. 280 Seiten, DM 49,- 


DATA BECKER BÜCHER 


Englisch Srepanowski 


Das große 


Floppy- 
Buch 


Disketten-Programmierung 
mit COMMODORE Computern 
für Anfänger, Fortgeschrittene 

und Profis 


EIN DATA BECKER BUCH 


Angerhausen Grünhagen 


64 


für Profis 


Anwendungsprogrammierung 
In BASIC 
für Fortgeschrittene 


EIN DATA BECKER BUCH 


Darauf haben Sie gewartet: Endlich 
ein Buch, das Ihnen ausführlich 
und verständlich die Arbeit mit der 
Floppy VC-1541 erklärt. DAS 
GROSSE FLOPPY BUCH ist für An- 
fänger, Fortgeschrittene und Profis 
gleichermaßen interessant. Sein In- 
halt reicht von der Programmspei- 
cherung bis zum DOS-Zugriff, von 
der sequentiellen Datenspeiche- 
rung bis zum Direktzugriff, von der 
technischen Beschreibung bis zum 
ausführlich dokumentierten DOS 
Listing, von den Systembefehlen 
bis zur detaillierten Beschreibung 
der Programme der Test/Demodis- 
kette. Exakt beschriebene Beispiel- 
und Hilfsprogramme ergänzen die- 
ses neue Superbuch. Mit dem 
GROSSEN FLOPPY-BUCH 
melstern Sie auch Ihre Floppy. 
DAS GROSSE FLOPPY BUCH, 
1983, ca. 250 Seiten, DM 49,- 


Wer besser und leichter in BASIC 
programmieren möchte, der 
braucht dieses neue Buch. 

64 FÜR PROFIS zeigt, wie man er- 
folgreich Anwendungsprobleme in 
BASIC löst und verrät Ertolgsge- 
heimnisse der Programmierprofis. 
Vom Programmentwurf über Menü- 
steuerung, Maskenaufbau, Para- 
meterisierung, Datenzugriff und 
Druckausgabe bis hin zur Doku- 
mentation wird anschaulich mit 
Beispielen dargelegt, wie gute 
BASIC-Programmierung vor sich 
geht. Fünf komplett beschriebene, 
lauffertige Anwendungspro- 
gramme für den C-64 illustrieren 
den Inhalt der einzelnen Kapitel 
beispielhaft. Mit 64 FÜR PROFIS 
lernen Sie gute und erfolgreiche 
BASIC-Programmlerung. 

64 FÜR PROFIS, 

1983, 220 Seiten, DM 49,- 


DATAMAT 


Der Datenautomat fur den Commodore 64 


STR Ir \ 
a& 


DATAMAT - Das ist Software MADE IN GERMANY 


ausgereift, leistungsstark und preiswert 


Ein DATA BECKER Produkt 


geschrieben von Wolfgang Schellenberger 


PP EROTER LOTTO TT 7 Er 2 2 2 2 2 22 2 Do 2 2 2 Zn 2 2 2 ZZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 


DATAMAT - Systembeschreibung 
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Warum brauchen Sie DATAMAT ? 


Sicher haben auch Sie eine Fülle von Unterlagen, die Sie 
verwalten müssen. Dazu haben Sie bis jetzt immer Karteikarten, 
Aktenordner und kRegistraturen verwendet. Oder Sie haben eine 
umfangreiche Schallplatten, Bücher oder Videokassettensammlung. 
Oder Sie haben ein großes Notizbuch mit den Adressen aller Ihrer 
Bekannten. 


Und nun suchen Sie etwas. Einen bestimmten Titel auf einer 
Schallplatte, eine bestimmte Adresse. 


Und genau jetzt setzt DATAMAT ein. Mit DATAMAT können Sie : 


- feststellen, auf welcher Schallolatte sich ein bestimmter 
Titel befindet 


- feststellen, wer nächste Woche Geburtstag hat. 
- eine sortierte Liste aller Mitglieder Ihres Vereins erstellen 


- Nerausfinden, ob Sie einen bestimmten Artikel noch am Lager 
haben 


- festellen, wer diesen Artikel liefert 


Die Einsatzmöglichkeiten von DATAMAT sind praktisch unbegrenzt. 
Beenden Sie die lange Sucherei nach irgendwelchen Informationen. 
Mit DATAMAT hat die Wühlerei ein Ende. 


Natürlich auch für Anfänger ! 


Um nit DATAMAT zu arbeiten, benötigen Sie keinerlei 
Vorkenntnisse. Modernste Menüsteuerung macht es möglich, dafß 
jeder mit diesem FProgrammpaket umgehen kann. In allen Teilen des 
Programms werden Sie von leicht verständlichen, deutschen Fragen 
und Kommandos geführt. Das umfangreiche deutsche Handbuch, in dem 
Sie schrittweise anhand einer Adressverwaltung in die Arbeit mit 


DATAMAT eingeführt werden, erklärt alle eventuell noch 
anstehenden Fragen. 


KREREUERUURETEERF TH EEEREEEHEREREET EHE RR HERE EEH ER EREEE 
DATAMAT - Systembeschreibung 


FBERFEEEEECELEFETERRERELEEERUEE FREE FREUE ERS FREE HERR 


Was ist nun eine "Dateiverwaltung" ? 


Der Begriff "Datei" ist leicht erkläroar. 


Stellen Sie sich vor, 
Sie haben einen karteikasten mit 


vielen gleich aufgebauten 
Karteikarten, auf denen z.B. Ihre kunden oder Bekannten 
eingetragen sind. Genauso werden Ihre Adressen nun auf Diskette 


abgespeichert. Inre Karteikarte heißt nun 


"Datensatz" . Jede 
Adresse ist ein Datensatz und besteht aus 


"Datenfeldern". Das 


sind die Einträge auf der Karteikarte, also z.B. Name, Vorname, 
Straße, Geburtsdatum, Hobbies U.6-.W. Alle Datensätze 
(Karteikarten) zusammen bilden die "Datei". In dieser Datei 
können Sie nun einzelne Datensätze löschen, ändern, neue 
hinzufügen, nach bestimmten Merkmalen suchen, sortieren oder 


Listen ausdrucken. 


Sie bestimmen den Aufbau Ihrer Datei ! 


Im Gegensatz zu Individuallösungen können Sie mit DATAMAT Ihre 


Datei völlig freı konfigurieren. Das bedeutet, daß Sie die 
unterschiedlichsten Arten von Daten erfassen können. Sie 
bestimmen den Aufbau der Eingabemaske völlig frei und können s»o 
von Adressen über WVideokassetten bis Kuüchenrezepten alles 


verwalten, was Ihnen Spaß macht. 


Und so könnten z.B. Eimgabemasken aussehen : 


LAGER Schmitz KG 


Vorname 
Artıkelrummer SER: 2 t 
Name Bezeichnung De: } ı 
Strasse : Bestand st ı 
geliefert ar Du ı ı 
AL2 ; EK pro Stuecr : L t DM 
1 ——t 
Wohnort VK pro Stueck 1 DM 
i ı 
Telefon Lieferant t t 
Strasse ER 3 t 
Hobbies 


PL2 ı 1 ?tOrt : ı 4 
Tel.ı2 tr 


Die Pfeile markieren den Anfang und das Ende der 
Die Länge der Datensätze ergibt sich aus der Summe der Länge 
aller Eingabefelder. In unseren Beispielen beträgt diese Summe 
128. Addieren Sie nun I, und Sie erhalten die Länge der Daten- 
sätze, wie sie auf der Diskette abgespeichert werden. Wieviele 


Datensätze nmun auf Ihrer Diskette Platz haben, hängt von der 
Länge der Datensätze ab. 


Eingabefelder. 


”s WUEERERERERUERTUERERRER EIER ERNEUERT USER ERE EEE 


DATAMAT - GBystembeschreibung 
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Zum Anlegen der Bildschirmmaske steht Ihnen der volle 
Bildschirmeditor des Commodore 64 zur Verfügung. Weiter haben Sie 
Funktionen wie Zeilen einfügen, löschen, Farbe ändern u.s.w. zur 
Verfügung. Diese Maske können Sie natürlich jederzeit ändern. 


Eingeben, Suchen, Ändern, Löschen von Daten 


In diesem Frogrammteil erfassen Sie Ihre Daten mit Hilfe der 
Pildschirmmaske, die Sie vorher erstellt haben. Sie können 
Jederzeit vorhandene Datensätze natürlich ändern oder wieder 
löschen. Ebenfalls können Sie nach bestimmten Informationen 
suchen, z.B. alle Leute mit dem Nachnamen Schmidt, die in 
Dusseldorf wohnen. Die gefundenen Datensätze können Sie dann 
verändern. Die mittlere Zugriffszeit liegt hier bei ca. 4,5 
Sekunden, egal auf welchen Datensatz sie zugreifen und wieviele 
Datensätze Sie bereits eingegeben haben. 


Sortieren, Drucken der Datei 


Dieser Programmteil zeigt die wahren Stärken des DATAMAT. Wieder 
mit Hilfe der Eingabemaske geben Sie die Selektionskriterien und 
Sortierstufen ein. Zuerst selektieren Sie, d.h. Sie bestimmen z. 
B., daß Sie alle Leute auswählen wallen, die Müller heißen, im 
Fostleitzahlgebiet 4588 bis 5678 wohnen, kein Auto besitzen und 
arößer als 1,7@ Meter sind. Dann sortieren Sie, so kann Ihre 
Utiste =.B. zuerst nach den Postleitzahlen, bei gleicher Postleit- 
‘hl nach den Straßen und bei gleicher Strafe nach der Hausnummer 
"tiert werden. Sie können festlegen, ob aufsteigend oder 
'allend sortiert werden soll. Mit diesen Kriterien können Sie 
‘ı Listen oder Etiketten drucken, deren Aussehen Sie völlig frei 
stimmen konnen. Bei Listen können Sıe überschriften festlegen 
"nd Spalten summieren. ni 


JATAMAT Z dıe wichtigsten Daten ın Kurze 
- Ihre Karteikarte kann bıs zu 58 verschiedene Einträge 


enthalten 

- Bis zu 2008 Karteikarten können Sie verwalten 

- Die Zugriffszeit lıegt bei ca. 4,5 Sekunden mit einer 
1541 - Floppy 

- Sie konnen nach jedem Eintrag suchen 

- Sie konnen nach jedem und beliebig vielen Einträgen 
selektieren und sortieren in soviel Stufen, wie Sie 
Eingabefelder haben 

- Sıe konnen Etiketten drucken 


- Sıe konnen Listen drucken, die überschriften auf jeder Seite 
haben und Spalten summieren 
- Sie konnen jede Art von Daten verwalten, von kunden bis zu 


Kochrezepten 


UVATAMAT - EIN DATEIVERWALTUNGSGROGRAMM Für DEN COMMODORE 64, DAS 
„BERZEUGT, 


Stand 7/83 -— Frogrammanderungen vorbehalten 


Mit DATAMAT haben wir das erste Programm in der neuen Reihe der 
DATA BECKER PROGRAMME 
vorgestellt. Ziel dieser neuen Reihe ist es, den Anwendern des COMMODORE 64 
für wenig Geld professionelle Programme zugänglich zu machen. Nur in einem 
Punkt haben wir Kompromisse gemacht: beim Preis. Jedes der Programme 
kostet trotz der außergewöhnlichen Leistungsmerkmale nur 
DM 99,- (unverbindl. Preisempfehlung incl. 14% MwSt.) 


Ab Oktober/November '83 sind auch die folgenden Programme erhältlich: 


PROFIMAT 


Ein Spitzenpaket für Maschinenspracheprogrammierer. PROFIMAT enthält 
nicht nur unseren komfortablen Maschinensprache-Monitor PROFI-MON, 
sondern auch PROFI-ASS, einen sehr leistungsfahigen Assembler für den 
COMMODORE 64. PROFI-ASS bietet unter anderem formatfreie Eingabe, 
komplette Assemblerlistings, ladbare Symboltabellen (Labels), verschiedene 
Möglichkeiten zur Speicherung des erzeugten Maschinencodes, redefinierbare 
Symbole, eine Reihe von Pseudo-Codes (Assembleranweisungen), bedingte 
Assemblierung und die Möglichkeit zur Erzeugung von Assemblerschleifen. 
PROFIMAT kostet komplett nur DM 99.-. 


BASIC 64 


Dieser neue 1-Pass-BASIC-Compiler macht Ihre Programme bis zu 10mal 
schneller. Er erzeugt direkten Maschinencode, der beliebig im Speicher 
plazierbar ist. BASIC 64 unterstützt Fließkommaarithmetik, Stringverwaltung 
und den gesamten 64er Befehlssatz bis auf FRE, TAB, SPC, ON X GOTO/ 
GOSUB, mehrdimensionale Felder und Klammerrechnung. Ein Superknüller für 
nur DM 99,-. 


PASCAL 64 


Endlich ein PASCAL für den 64er. PASCAL 64 hat einen großen Befehilssatz mit 
allen wesentlichen Standardbefehlen und enthält auch Dateiverwaltungsbefehle. 
AOS-Arithmetik real und integer. Kein eigener Editor erforderlich, da im 
Commodore Editor-Modus eingegeben werden kann. PASCAL 64 ist sehr schnell, 
da echter Maschinencode erzeugt wird, und kostet komplett mit ausführlichem 
Handbuch nur DM 99.-. 


SUPERGRAPHIK 64 


Die neueste Version unserer beliebten SUPERGRAFPHIK enthält jetzt über 30(!) 
Befehle zur Ausnutzung der fantastischen Möglichkeiten, die der 64 mit 
hochauflösender Graphik und Farbe bietet. Mit SUPERGRAPHIK 64 können Sie 
Punkte, Linien und Kreise ziehen, SPRITES definieren und manipulieren, Farben 
setzen, komplette Graphikbildschirme auf Diskette abspeichern bzw. laden und 
vieles andere mehr. Ergänzt wurde die SUPERGRAPHIK 64 zusätzlich um 
SUPERSOUND, eine neue Befehlserweiterung zur Nutzung der hervorragenden 
Soundmöglichkeiten des 64. Mit SUPERGRAPHIK 64 machen Sie mehr aus 
Ihrem 64er, und das für nur DM 99.-. 


TEXTOMAT 


Ein außergewönnliches Textverarbeitungsprogramm. Bis zu 255 Zeichen pro 
Zeile mit horizontalem Scrolling, Texte bis zu 24000,-Zeichen, Textbaustein- 
Verarbeitung, umfangreiche Formatierungsmöglichkeiten, Schnittstelle zu 
DATAMAT für Rundschreiben und Serienbriefe und vieles andere mehr. 
TEXTOMAT ist komplett in Assembler geschrlevben und sehr schnell. 
TEXTOMAT ist natürlich in deutsch, mit deutscher Bedienerführung und kostet 
mit ausführlichem Handbuch nur DM 99.-. 


DATAMAT 


Eine universelle Dateiverwaltung, die Sie von der Adressverwaltung über die 
Mitgliederverwaltung bis zur Lagerbuchführung auf vielfältigste Welse nutzen 
können. Die frei gestaltbare Eingabemaske kann bis zu 50 Felder, max. 40 
Zeichen pro Feld und max. 259 Zeichen pro Datensatz enthalten. Bis zu 2000 
Datensätze pro Diskette sind möglich. Nach allen Feldern kann sortlert und selek- 
tiert werden, sogar nach mehreren gleichzeitig. Auswertungen können alsListen 
und als Etiketten gedruckt werden. Ein Superprogramm, das zu jedem 64er 
gehören sollte. Komplett mit ausführlichem Handbuch nur DM 99,-. 


KONTOMAT 


Ein Einnahme-Überschußprogramm nach $ 4 (3) EStG mit Kassenbuch, 
Bankkontenüberwachung, automatischer Steuerbuchung (Brutto u. Netto), AfA 
Tabellenerstellung, Kontenblättern & Journal, Ermittlung der USt.-Voranmel- 
dungswerte und Monats- und Jahresrechnung. KONTOMAT ist voll para- 
meterisiert (Firmendaten, Steuersätze, Konten, Buchungstexte) und läßt sich 
damit an Ihre Bedürfnisse anpassen. KONTOMAT ist geeignet für alle 
Selbständigen und Gewerbetreibenden, die nicht laut HGB zur Buchführung 
verpflichtet sind. Komplett mit ausführlichem Handbuch nur 99,-. 


FAKTUMAT 


Eine Sofortfakturierung mit integrierter Lagerbuchführung. Die Kunden- und 
Artikelstammdatei ist voll pflegbar. Steuersätze, Maßeinheiten und Firmendaten 
sind individuell anpafbar. Schneller Diskettenzugriff auf Kunden- und 
Artikeldaten. Schnittstelle zur Textverarbeitung. Komplett mit ausführlichem 
Handbuch nur DM 99.-. 


SYNTHIMAT 


Mit diesem Superprogramm verwandeln Sie Ihren 64er in einen professionellen, 
polyphonen, dreistimmigen Synthesizer, mit dem Sie über die Tastatur ganze 
Akkorde spielen können. Zu den unglaublich vielen Möglichkeiten dieses 
Programms gehört auch die „Bandaufnahme-/Wiedergabe" direkt auf bzw. von 
Diskette. Verwandeln Sie Ihren 64er für wenig Geld in eine Super-Musik- 
maschine mit SYNTHIMAT. Komplett mit ausführlichem Handbuch nur DM 9,.-. 


DATA BECKER PROGRAMME erhalten Sie dort, wo Sie auch DATA BECKER 
BUCHER bekommen: 

® im COMMODORE-Fachhandel 

@ in großen Kauf- und Warenhäusern 

@ in Fachbuchhandlungen 
oder direkt von DATA BECKER. Vertrieb in der Schweiz über THALI AG und in 
Österreich über Fachbuchcenter ERB. 


Das professionelle Programm-Entwicklungssystem für 
CBM 8032 und 8096, Commodore 64, 600 und 700 


„Ich habe doch einen leistungsfähigen Computer mit einem komfortablen BASIC Interpreter. Wofür brauche Ict 
dann Oberhaupt noch ein Programm-Entwicklungssystem? " - So werden Sie zurecht fragen. Ihr Commodore 
Computer bietet heute für erstaunlich wenig Geld in der Form eines Tischcomputers Leistungen, wie sie noch vo 
Jahren nur mit Großrechnern möglich waren. Leider aber enthalten Betriebssystem und BASIC Ihras Commodore 
nicht die Elemente, die man braucht, um aul einfache Weise Programme zu erstellen, die anwenderfreundlich 
schnell, sicher, leicht Anderbar und aufwärtskompatibel zu größeren Computern sind. Dies gilt praktisch für fas 
alle Computer, vom Micro bis zum Großrechner. Besondern im Großrechnerbereich hat man sich deshalb alı 
Hilfsmittel Software-Werkzeuge geschaffen, die eine einfache Erstellung anspruchsvoller Programme ermög 
lichen, MASTER ist ein solches Werkzeug, das sich in der Leistung an den Vorbildern aus dem Großrechnerbe 
reich orientlert, aber im Preis Ihrem Commodore Computer angeglichen Ist. 


Im Großrechnerbereich ist eine Programmierung ohne entsprechende Hilfsmittel praktisch undenkbar, Jeiz 
können auch Commodore-Programmierer auf derartigen Komfort bei der Programmierung zurückgreifen 
MASTER ist nicht „schon wieder eine BASIC-Erweiterung”‚sondern ein ausgereiltes geschlossenes Konzep 
zur komfortablen Programmerstellung. MASTER macht aus dem COMMODORE BASIC eine leistungsfähig: 
Sprache und enthält alle dafür wesentlichen Elemente: 


® BILDSCHIRM-VERWALTUNG @ ISAM-DATEIVERWALTUNG ® DRUCK-GENERATOR 
zur raschen Erstellung tur schnellen Datenzugriff und zum einfachen Erstellen und Auslesten 
komfortabler Bildschirmmasken effiziente Dateiverwaltung beliebiger Ausgabemasken 

@ PROGRAMMSCHUTZ @ MEHRFACHGENAUE ARITHMETIK © BASIC-ERWEITERUNGEN 
dureh NOLIST-Modus und Rechnen mit 22 Stellen Genauigkeit Toolkıt-Funktionen, nutzliche Zusatz- 
individuelle Schlussel (auf Wunsch) befohle und in der 64er Version das 


komplette BASIC 4.0 


Selbstverständlich ist MASTER ausgereift und ausführlich in Deutsch dokumentiert. MASTER kostet kaum meh 


als eln Programmlertag und ist etliche Mannmonate wert. Über 5000 Programmierer nutzen bereits die Vorteilt 
von MASTER. Machen Sie mit! 


MASTER ist ein Produkt der französischen Firma Micro Application und wird in Deutschland von DATA BECKEF 
Ober den Commodore-Fachhandel vertrieben. 


VC-20 COMMODORE 64  EXECUTIVE 


DA STEHT ALLES DRIN! 


VC-INFO 


3/83 ist da! 


Der neue, 80(!)seitige Katalog rund um den 
VC-20, COMMODORE 64 und den neuen 
COMMODORE EXECUTIVE, mit den 
neuesten Software-Hits aus aller Welt, 

- interessantem Zubehör, vielseitigen 
Peripheriegeräten, neuen Superbüchern, 
Programmiertips & Tricks und der 
großen Übersichtstabelle »Was läuft womit«. 
Das VC-INFO 3/83 erhalten Sie gegen 
DM 3,- in Briefmarken. 


IHR GROSSER PARTNER 
FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstraße 30 - 4000 Düsseldorf 1 
im Hause AUTO BECKER - Telefon 02111/310010 


VC-20 . COMMODORE 64  EXECUTIVE 
JAILND3X3 79 3YUOQOWWOD 02-21 


EXECUTIVE :- COMMODORE 64 VC-20 


